From e9be8e3b0d37f98ee56a94183163785fba8ffd6d Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Wed, 1 May 2019 17:41:57 +0200
Subject: [PATCH] (Pes) Reuse functions in VerbPes

---
 src/persian/VerbPes.gf | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/persian/VerbPes.gf b/src/persian/VerbPes.gf
index 12217937b..4c62a6c71 100644
--- a/src/persian/VerbPes.gf
+++ b/src/persian/VerbPes.gf
@@ -22,9 +22,9 @@ concrete VerbPes of Verb = CatPes ** open ResPes,Prelude in {
       } ;
 
     SlashVV vv vps = vps ** ComplVV vv vps ;
-    SlashV2S v s  = predVc v ** embComp (conjThat ++ s.s ! Indic) (predV v) ;
-    SlashV2Q v q  = predVc v ** embComp q.s (predV v) ;
-    SlashV2A v ap = predVc v ** insertObj (appComp v.c2 ap.s)     (predV v) ; ---- paint it red , check form of adjective
+    SlashV2S v s  = predVc v ** ComplVS v s ;
+    SlashV2Q v q  = predVc v ** ComplVQ v q ;
+    SlashV2A v ap = predVc v ** insertObj (appComp v.c2 ap.s) (predV v) ; ---- paint it red , check form of adjective
 
     -- : V2V -> VP -> VPSlash ;  -- beg (her) to go
     SlashV2V v2v vp = predVc v2v ** {