mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-23 11:42:49 -06:00
ExtraEng.MkVPS should add the extra position field
This commit is contained in:
@@ -79,7 +79,7 @@ concrete ExtraEng of ExtraEngAbs = CatEng **
|
|||||||
let
|
let
|
||||||
verb = vp.s ! t.t ! t.a ! p.p ! ODir ! a ;
|
verb = vp.s ! t.t ! t.a ! p.p ! ODir ! a ;
|
||||||
verbf = verb.aux ++ verb.adv ++ verb.fin ++ verb.inf ;
|
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 ;
|
ConjVPS = conjunctDistrTable Agr ;
|
||||||
|
|||||||
Reference in New Issue
Block a user