From 0c1f5cf9f2ae21490af5c5ff3eddabf193c02578 Mon Sep 17 00:00:00 2001 From: aarne Date: Fri, 31 Oct 2008 14:39:47 +0000 Subject: fixed some spurious errors in romance --- next-lib/src/romance/ResRomance.gf | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) (limited to 'next-lib/src/romance') 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 = ; ----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: -- cgit v1.2.3