mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-24 03:52:50 -06:00
workaround in Spanish and French for a pgf compiler issue showing in pronArg
This commit is contained in:
@@ -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 ;
|
||||
|
||||
|
||||
}
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user