1
0
forked from GitHub/gf-core

ExtraEng.MkVPS should add the extra position field

This commit is contained in:
kr.angelov
2013-11-01 10:58:52 +00:00
parent 8c6e6f7eb8
commit 9b0f5ea449

View File

@@ -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 ;