1
0
forked from GitHub/gf-rgl

(Eng) Add back the s fields of Temp and Pol in mkVPS

This commit is contained in:
Inari Listenmaa
2021-05-04 12:16:19 +08:00
parent 0b63fb7a69
commit 310e143bea

View File

@@ -177,7 +177,7 @@ concrete ExtendEng of Extend =
let
verb = vp.s ! t.t ! t.a ! p.p ! o ! a ; -- choice of Order determines aux or not
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} ;
} ;