GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

fixed agreement to object in Romance SlashVP

Browse Source
This commit is contained in:
aarne
2013-02-20 15:55:53 +00:00
parent 48204048d3
commit 07eaf86ab4
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
lib/src/romance/SentenceRomance.gf
View File

@@ -16,13 +16,13 @@ incomplete concrete SentenceRomance of Sentence =
SlashVP np v2 =
-- agreement decided afterwards: la fille qu'il a trouvée
{s = \\_ =>
{s = \\a =>
let
vp = v2
----e vp = case <v2.c2.c, v2.c2.isDir> of {
---- <Acc,True> => insertAgr ag v2 ;
---- _ => v2
----e }
----- vp = v2
vp = case <v2.c2.c, v2.c2.isDir> of {
<Acc,True> => insertAgr a v2 ;
_ => v2
}
in (mkClausePol np.isNeg (np.s ! Nom).comp False np.isPol np.a vp).s ;
----- in (mkClausePol np.isNeg (np.s ! Nom).comp np.hasClit np.isPol np.a vp).s ;
c2 = v2.c2