From 367123c81b644e6162bb7486c2ab9dd23beef9d5 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Tue, 12 Mar 2013 20:06:51 +0000
Subject: [PATCH] the proper place of verb particle in Eng passives

---
 lib/src/english/ExtraEng.gf | 4 ++--
 lib/src/english/VerbEng.gf  | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/src/english/ExtraEng.gf b/lib/src/english/ExtraEng.gf
index 494bdd274..086d03e92 100644
--- a/lib/src/english/ExtraEng.gf
+++ b/lib/src/english/ExtraEng.gf
@@ -156,12 +156,12 @@ lin
       ppt = vps.ptp
     in {
     s = be.s ;
-    p = vps.p ;
+    p = [] ; 
     prp = be.prp ;
     ptp = be.ptp ;
     inf = be.inf ;
     ad = vps.ad ;
-    s2 = \\a => ppt ++ vps.s2 ! a ---- order
+    s2 = \\a => ppt ++ vps.p ++ vps.s2 ! a ---- order
     } ;
 
    --- AR 7/3/2013
diff --git a/lib/src/english/VerbEng.gf b/lib/src/english/VerbEng.gf
index 03fce9679..4e1144057 100644
--- a/lib/src/english/VerbEng.gf
+++ b/lib/src/english/VerbEng.gf
@@ -44,7 +44,7 @@ concrete VerbEng of Verb = CatEng ** open ResEng, Prelude in {
 
     ReflVP v = insertObjPre (\\a => v.c2 ++ reflPron ! a) v ;
 
-    PassV2 v = insertObj (\\_ => v.s ! VPPart) (predAux auxBe) ;
+    PassV2 v = insertObj (\\_ => v.s ! VPPart ++ v.p) (predAux auxBe) ;
 
 ---b    UseVS, UseVQ = \vv -> {s = vv.s ; c2 = [] ; isRefl = vv.isRefl} ; -- no "to"