mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-27 17:08:54 -06:00
(Eng) Add back the s fields of Temp and Pol in mkVPS
This commit is contained in:
@@ -177,7 +177,7 @@ concrete ExtendEng of Extend =
|
|||||||
let
|
let
|
||||||
verb = vp.s ! t.t ! t.a ! p.p ! o ! a ; -- choice of Order determines aux or not
|
verb = vp.s ! t.t ! t.a ! p.p ! o ! a ; -- choice of Order determines aux or not
|
||||||
compl = vp.s2 ! a ++ vp.ext
|
compl = vp.s2 ! a ++ vp.ext
|
||||||
in {fin = verb.aux ;
|
in {fin = verb.aux ++ t.s ++ p.s ;
|
||||||
inf = verb.adv ++ vp.ad ! a ++ verb.fin ++ verb.inf ++ vp.p ++ compl} ;
|
inf = verb.adv ++ vp.ad ! a ++ verb.fin ++ verb.inf ++ vp.p ++ compl} ;
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user