Romance particle verbs: show the p field also in infinitives

This commit is contained in:
aarne
2014-09-15 06:33:08 +00:00
parent dcc3d70ac5
commit 8b95b86b0a

View File

@@ -281,7 +281,7 @@ oper
iform = orB vp.clit3.hasClit (isVRefl vp.s.vtyp) ;
inf = vp.s.s ! VInfin iform ;
neg = vp.neg ! RPos ; --- Neg not in API
obj = neg.p2 ++ vp.comp ! agr ++ vp.ext ! RPos ; ---- pol
obj = neg.p2 ++ vp.s.p ++ vp.comp ! agr ++ vp.ext ! RPos ; ---- pol
refl = case isVRefl vp.s.vtyp of {
True => reflPron agr.n agr.p Acc ; ---- case ?
_ => []