past participle in proper place in English VP

This commit is contained in:
aarne
2011-07-22 07:49:53 +00:00
parent 61c9bdf94e
commit b43fa3ce9e
2 changed files with 10 additions and 3 deletions

View File

@@ -120,11 +120,12 @@ lin
PassVPSlash vps =
let
be = predAux auxBe ;
ppt = (vps.s ! Pres ! Anter ! CPos ! ODir ! agrP3 Pl).inf
ppt = vps.ptp
in {
s = be.s ;
prp = be.prp ++ ppt ;
inf = be.inf ++ ppt ;
prp = be.prp ;
ptp = be.ptp ;
inf = be.inf ;
ad = vps.ad ;
s2 = \\a => ppt ++ vps.s2 ! a ---- order
} ;