diff --git a/src/english/ExtendEng.gf b/src/english/ExtendEng.gf index 82bb010d..9862202e 100644 --- a/src/english/ExtendEng.gf +++ b/src/english/ExtendEng.gf @@ -331,7 +331,7 @@ lin BaseImp = twoTable2 CPolarity ImpForm ; RNPList = {s1,s2 : Agr => Str} ; lin - ReflRNP vps rnp = insertObj (\\a => vps.c2 ++ rnp.s ! a) vps ; + ReflRNP vps rnp = insertObjPre (\\a => vps.c2 ++ rnp.s ! a) vps ; ReflPron = {s = reflPron} ; ReflPoss num cn = {s = \\a => possPron ! a ++ num.s ! True ! Nom ++ cn.s ! num.n ! Nom} ; PredetRNP predet rnp = {s = \\a => predet.s ++ rnp.s ! a} ; diff --git a/src/swedish/ExtendSwe.gf b/src/swedish/ExtendSwe.gf index 36d1613c..f2f8669c 100644 --- a/src/swedish/ExtendSwe.gf +++ b/src/swedish/ExtendSwe.gf @@ -199,10 +199,9 @@ lin BaseImp = twoTable2 Polarity Number ; lin ReflRNP vps rnp = - insertObjPron - (andB (notB vps.c2.hasPrep) rnp.isPron) - rnp.s - (insertObj (\\a => vps.c2.s ++ vps.n3 ! a) vps) ; + insertObjPost (\\a => vps.n3 ! a) + (insertObjPron (andB rnp.isPron (notB vps.c2.hasPrep)) (\\a => vps.c2.s ++ rnp.s ! a) + vps) ; ReflPron = {s = \\a => reflPron a ; isPron = True} ; ---- agr ?? ReflPoss num cn = {