mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-30 02:58:35 -06:00
(Som) Fix bug in UttVP+RelVP
This commit is contained in:
@@ -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 ;
|
||||
|
||||
Reference in New Issue
Block a user