From f174e92f70a2ca0be8e9f8a759c5dd805efa33e2 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Fri, 15 Mar 2019 16:58:15 +0100
Subject: [PATCH] (Pes) Add alternative insertCompPost; used in an application
 grammar

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

diff --git a/src/persian/ResPes.gf b/src/persian/ResPes.gf
index ebb15c7d7..b46fae362 100644
--- a/src/persian/ResPes.gf
+++ b/src/persian/ResPes.gf
@@ -135,6 +135,10 @@ oper
     comp = \\a => appComp vp.c2 (obj ! a) ++ vp.comp ! a
     } ;
 
+  insertCompPost : (Agr=>Mod=>Str) -> VPHSlash -> VPH = \obj,vp -> vp ** {
+    comp = \\a =>  vp.comp ! a ++ appComp vp.c2 (obj ! a)
+    } ;
+
   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} ;