From f17d1f3e481104f89cd992066246510c3da68c8d Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Fri, 22 Mar 2019 09:45:52 +0100
Subject: [PATCH] (Pes) Change word order for defective VVs.

NB. This might be overfitting just for a particular sentence. Ideally
check with a Persian speaker.
---
 src/persian/ResPes.gf | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/src/persian/ResPes.gf b/src/persian/ResPes.gf
index f88cc2d1..e3600699 100644
--- a/src/persian/ResPes.gf
+++ b/src/persian/ResPes.gf
@@ -237,8 +237,12 @@ oper
     vp = \\ta,p,ord =>
       let vps = clTable vp ! np.a ! ta ! p ;
           vvt = ta2vvt ta ;
-       in vp.ad ++ vp.comp ! np.a ++ vp.obj ++ vps
-       ++ vp.vComp ! np.a ! vvt ++ vp.embComp
+       in case vp.vvtype of {
+            DefVV
+              => vps ++ vp.ad ++ vp.comp ! np.a ++ vp.obj
+              ++ vp.vComp ! np.a ! vvt ++ vp.embComp ;
+            _ => vp.ad ++ vp.comp ! np.a ++ vp.obj ++ vps
+              ++ vp.vComp ! np.a ! vvt ++ vp.embComp }
   };
 
 --Clause : Type = {s : TAnt => Polarity => Order => Str} ;