infVP bug fix in Scand

2006-05-16 08:17:01 +00:00
1 parent 378e30f165
commit 2073b4c65e
@@ -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$.