ExtraEng.MkVPS should add the extra position field
This commit is contained in:
1 parent
0fcd2d9633
commit
50040fcad6
1 file changed
+1
-1
@@ -79,7 +79,7 @@ concrete ExtraEng of ExtraEngAbs = CatEng **
|
||||
let
|
||||
verb = vp.s ! t.t ! t.a ! p.p ! ODir ! a ;
|
||||
verbf = verb.aux ++ verb.adv ++ verb.fin ++ verb.inf ;
|
||||
in t.s ++ p.s ++ vp.ad ++ verbf ++ vp.p ++ vp.s2 ! a
|
||||
in t.s ++ p.s ++ vp.ad ++ verbf ++ vp.p ++ vp.s2 ! a ++ vp.ext
|
||||
} ;
|
||||
|
||||
ConjVPS = conjunctDistrTable Agr ;
|
||||
|
||||
Reference in new issue
Block a user