msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

fixed some spurious errors in romance

Browse Source
This commit is contained in:
aarne
2008-10-31 14:39:47 +00:00
parent 88fa05749b
commit 0c1f5cf9f2
9 changed files with 20 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
next-lib/src/romance/ResRomance.gf
View File

@@ -305,14 +305,15 @@ oper
let
vp = useVP vpr ;
----e clpr = pronArg agr.n agr.p vp.clAcc vp.clDat ;
-- iform = infForm agr.n agr.p vp.clAcc vp.clDat ;
iform = False ;
----e iform = infForm agr.n agr.p vp.clAcc vp.clDat ;
clpr = <vp.clit1, vp.clit2, False> ; ----e
iform = False ; ----e
inf = (vp.s ! VPInfinit Simul iform).inf ! (aagr agr.g agr.n) ;
-- neg = vp.neg ! Pos ; --- Neg not in API
-- obj = neg.p2 ++ clpr.p2 ++ vp.comp ! agr ++ vp.ext ! Pos ---- pol
neg = vp.neg ! Pos ; --- Neg not in API
obj = neg.p2 ++ clpr.p2 ++ vp.comp ! agr ++ vp.ext ! Pos ---- pol
in
----e clitInf clpr.p3 (clpr.p1 ++ vp.clit2) inf ++ obj ;
inf ;
clitInf clpr.p3 (clpr.p1 ++ vp.clit3) inf ++ obj ;
}
-- insertObject: