msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests 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 = SlashVP np v2 =
-- agreement decided afterwards: la fille qu'il a trouvée -- agreement decided afterwards: la fille qu'il a trouvée
{s = \\_ => {s = \\a =>
let let
vp = v2 ----- vp = v2
----e vp = case <v2.c2.c, v2.c2.isDir> of { vp = case <v2.c2.c, v2.c2.isDir> of {
---- <Acc,True> => insertAgr ag v2 ; <Acc,True> => insertAgr a v2 ;
---- _ => v2 _ => v2
----e } }
in (mkClausePol np.isNeg (np.s ! Nom).comp False np.isPol np.a vp).s ; 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 ; ----- in (mkClausePol np.isNeg (np.s ! Nom).comp np.hasClit np.isPol np.a vp).s ;
c2 = v2.c2 c2 = v2.c2