infVP bug fix in Scand

This commit is contained in:
aarne
2006-05-16 08:17:01 +00:00
parent 0b9bc14b9e
commit 95e2333598

View File

@@ -267,7 +267,7 @@ oper
} ;
infVP : VP -> Agr -> Str = \vp,a ->
(vp.s ! VPInfinit Simul).inf ++ vp.n2 ! a ++ vp.a2 ++ vp.ext ; --- a1
vp.a1 ! Pos ++ (vp.s ! VPInfinit Simul).inf ++ vp.n2 ! a ++ vp.a2 ++ vp.ext ; --- a1
-- For $Sentence$.