From 76cbfa31a7bbd1516518d2a2ff714ddf4c9d80e4 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Thu, 14 Mar 2019 12:41:56 +0100
Subject: [PATCH] (Pes) Change place of adverb in VV constructions

---
 src/persian/ResPes.gf | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/persian/ResPes.gf b/src/persian/ResPes.gf
index fdf5a667..3b937f27 100644
--- a/src/persian/ResPes.gf
+++ b/src/persian/ResPes.gf
@@ -99,7 +99,7 @@ oper
   -- A hack: we reuse the obj field for the VP complement in
   -- SlashV2V and this is needed to get the right word order for complVV.
   showVPHvv : VerbForm -> Agr -> VPH -> Str = \vf,agr,vp ->
-      vp.ad ++ vp.comp ! agr ++ vp.prefix ++ vp.s ! vf
+      vp.comp ! agr ++ vp.prefix ++ vp.s ! vf  -- vp.ad is missing on purpose! we add it in insertVV.
    ++ vp.obj ++ vp.vComp ! agr ! VVPres ++ vp.embComp ;
 
   Compl : Type = {s : Str ; ra : Str} ;
@@ -140,6 +140,7 @@ oper
   insertVV : VV -> VPH -> VPH = \vv,vp -> predV vv ** {
     vComp = \\a,t => vp.vComp ! a ! t ++ complVV vv vp ! a ! t ;
     vvType = case vv.isDef of {True => DefVV ; _ => FullVV} ;
+    ad = vp.ad  -- because complVV doesn't include ad! for word order.
   } ;
 
   embComp : Str -> VPH -> VPH = \str,vp -> vp ** {