workaround in Spanish and French for a pgf compiler issue showing in pronArg

This commit is contained in:
aarne
2008-08-16 12:29:04 +00:00
parent 20fe8a8c20
commit b1b2e6766d
5 changed files with 23 additions and 2 deletions

View File

@@ -103,6 +103,13 @@ param
oper
Verb = {s : VF => Str ; vtyp : VType} ;
--2 Workarounds, to be eliminated
-- This should be provided by $pronArg$ above, but causes trouble in compilation.
-- (AR 16/8/2008)
oper infForm : Number -> Person -> CAgr -> CAgr -> Bool ;
}

View File

@@ -278,7 +278,8 @@ oper
let
vp = useVP vpr ;
clpr = pronArg agr.n agr.p vp.clAcc vp.clDat ;
inf = (vp.s ! VPInfinit Simul clpr.p3).inf ! (aagr agr.g agr.n) ;
iform = infForm agr.n agr.p vp.clAcc vp.clDat ;
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
in