From de405c79293df2a62a6ab0fee8bee9305c012d81 Mon Sep 17 00:00:00 2001 From: krangelov Date: Fri, 19 Mar 2021 20:39:44 +0100 Subject: [PATCH] fix ReflRNP for V2A verbs --- src/english/ExtendEng.gf | 2 +- src/swedish/ExtendSwe.gf | 7 +++---- 2 files changed, 4 insertions(+), 5 deletions(-) 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 = {