From faad0663544181286eaa34d7734487dbd15adcc7 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Fri, 11 Apr 2014 18:55:24 +0000
Subject: [PATCH] corrected the position of agent in Romance passives

---
 lib/src/romance/ExtraRomance.gf | 12 +++---------
 1 file changed, 3 insertions(+), 9 deletions(-)

diff --git a/lib/src/romance/ExtraRomance.gf b/lib/src/romance/ExtraRomance.gf
index 054d8cfa5..a340c0ffa 100644
--- a/lib/src/romance/ExtraRomance.gf
+++ b/lib/src/romance/ExtraRomance.gf
@@ -81,19 +81,13 @@ incomplete concrete ExtraRomance of ExtraRomanceAbs = CatRomance **
       vps (let by = <Grammar.by8agent_Prep : Prep> in by.s ++ (np.s ! by.c).ton) ;
 
 oper
-    passVPSlash : VPSlash -> Str -> ResRomance.VP = \vps, ag -> 
+    passVPSlash : VPSlash -> Str -> ResRomance.VP = \vps, agent -> 
       let auxvp = predV auxPassive 
       in
-       insertComplement (\\a => let agr = complAgr a in vps.s.s ! VPart agr.g agr.n) {
+      vps ** {
          s = auxvp.s ;
          agr = auxvp.agr ;
-         neg = vps.neg ;
-         clit1 = vps.clit1 ;
-         clit2 = vps.clit2 ;
-         clit3 = vps.clit3 ;
-         isNeg = vps.isNeg ;
-         comp  = \\a => vps.comp ! a ++ ag ;
-         ext   = vps.ext
+         comp  = \\a => vps.comp ! a ++ (let agr = complAgr a in vps.s.s ! VPart agr.g agr.n) ++ agent ;
         } ;
 
 }