1
0
forked from GitHub/gf-rgl

respect the verb type in GerundAdv

This commit is contained in:
Krasimir Angelov
2018-07-27 11:55:06 +02:00
parent 7bf3409b05
commit 0d7df4d576

View File

@@ -70,6 +70,11 @@ lin
GerundAdv, ByVP = \vp ->
{s = vp.ad.s ++
vp.s ! Imperf ! VGerund ++
case vp.vtype of {
VNormal => "" ;
VMedial c => reflClitics ! c ;
VPhrasal c => personalClitics (agrP3 (GSg Masc)) ! c
} ++
vp.compl ! {gn=GSg Neut; p=P3}} ;
InOrderToVP vp =