diff --git a/src/persian/ResPes.gf b/src/persian/ResPes.gf index fdf5a667..3b937f27 100644 --- a/src/persian/ResPes.gf +++ b/src/persian/ResPes.gf @@ -99,7 +99,7 @@ oper -- A hack: we reuse the obj field for the VP complement in -- SlashV2V and this is needed to get the right word order for complVV. showVPHvv : VerbForm -> Agr -> VPH -> Str = \vf,agr,vp -> - vp.ad ++ vp.comp ! agr ++ vp.prefix ++ vp.s ! vf + vp.comp ! agr ++ vp.prefix ++ vp.s ! vf -- vp.ad is missing on purpose! we add it in insertVV. ++ vp.obj ++ vp.vComp ! agr ! VVPres ++ vp.embComp ; Compl : Type = {s : Str ; ra : Str} ; @@ -140,6 +140,7 @@ oper insertVV : VV -> VPH -> VPH = \vv,vp -> predV vv ** { vComp = \\a,t => vp.vComp ! a ! t ++ complVV vv vp ! a ! t ; vvType = case vv.isDef of {True => DefVV ; _ => FullVV} ; + ad = vp.ad -- because complVV doesn't include ad! for word order. } ; embComp : Str -> VPH -> VPH = \str,vp -> vp ** {