(Som) Fix bug in UttVP+RelVP

This commit is contained in:
Inari Listenmaa
2019-07-30 17:13:05 +02:00
parent 773417511a
commit bba53fc48b
2 changed files with 11 additions and 2 deletions
+3 -2
View File
@@ -890,8 +890,9 @@ oper
oper
linVP : VForm -> VerbPhrase -> Str = \vf,vp ->
let inf = {inf = vp.s ! vf ; fin=[]} ;
wo = wordOrder [] [] {p1,p2=[]} (vp.comp ! Pl3) inf vp ;
let vp' = complSlash vp ;
inf = {inf = vp.s ! vf ; fin=[]} ;
wo = wordOrder [] [] {p1,p2=[]} (vp'.comp ! pagr2agr vp.obj2.a) inf vp' ;
in wo.beforeSTM ++ wo.afterSTM ;
linCN : CNoun -> Str = \cn -> cn.s ! NomSg ++ cn.mod ! Sg ! Abs ;