diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-10-31 14:39:47 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-10-31 14:39:47 +0000 |
| commit | 0c1f5cf9f2ae21490af5c5ff3eddabf193c02578 (patch) | |
| tree | 2f8cf741c1f75b2a7a16a4f2a2473c46b24e9dcf /next-lib/src/romance | |
| parent | 88fa05749b90a7447a058025ba90082464516253 (diff) | |
fixed some spurious errors in romance
Diffstat (limited to 'next-lib/src/romance')
| -rw-r--r-- | next-lib/src/romance/ResRomance.gf | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/next-lib/src/romance/ResRomance.gf b/next-lib/src/romance/ResRomance.gf index 483c217f1..4ff8991b8 100644 --- a/next-lib/src/romance/ResRomance.gf +++ b/next-lib/src/romance/ResRomance.gf @@ -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: |