From 4a13d04e6f412822f5335a93cd0e20816859e115 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Tue, 30 Apr 2019 18:39:42 +0200
Subject: [PATCH] =?UTF-8?q?(Pes)=20InOrderToVP:=20only=20show=20prefix,=20?=
 =?UTF-8?q?if=20the=20verb=20is=20=DA=A9=D8=B1=D8=AF=D9=86?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/persian/ExtendPes.gf | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/persian/ExtendPes.gf b/src/persian/ExtendPes.gf
index caffc0456..2b02ee196 100644
--- a/src/persian/ExtendPes.gf
+++ b/src/persian/ExtendPes.gf
@@ -43,9 +43,9 @@ lin
   ByVP vp = lin Adv {s = with_Prep.s ++ showVPH' VO False VVPres Inf defaultAgr vp } ;
 
   -- : VP -> Adv ;         -- (in order) to publish the document
-  InOrderToVP vp = lin Adv {s = for_Prep.s ++ showVPH PerfStem defaultAgr vp} ;
-
-
-
-
+  InOrderToVP vp = lin Adv {s = for_Prep.s
+    ++ case vp.passive of {
+         Replace => showVPH PerfStem defaultAgr <vp ** {s = \\vf => []} : VP> ; -- only show prefix
+         _ => showVPH PerfStem defaultAgr vp}
+   } ;
 }