diff --git a/src/somali/ParamSom.gf b/src/somali/ParamSom.gf index 4127eeea9..b9b7a2f3e 100644 --- a/src/somali/ParamSom.gf +++ b/src/somali/ParamSom.gf @@ -164,6 +164,14 @@ oper _ => P3_Prep } ; + pagr2agr : PrepAgr -> Agreement = \a -> case a of { + Sg1_Prep => Sg1 ; + Sg2_Prep => Sg2 ; + Pl1_Prep i => Pl1 i ; + Pl2_Prep => Pl2 ; + _ => Pl3 + } ; + isP3 = overload { isP3 : Agreement -> Bool = \agr -> case agr of {Sg3 _ | Pl3 => True ; _ => False} ; diff --git a/src/somali/ResSom.gf b/src/somali/ResSom.gf index 6f4e7ebee..8ce23004f 100644 --- a/src/somali/ResSom.gf +++ b/src/somali/ResSom.gf @@ -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 ;