From 3751fc0b3722b8e504df11a1ca4ad284657d5bf9 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Thu, 14 Mar 2019 16:23:57 +0100
Subject: [PATCH] (Pes) add EmbedPresPart to Extend

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

diff --git a/src/persian/ExtendPes.gf b/src/persian/ExtendPes.gf
index 77b8c986..da575439 100644
--- a/src/persian/ExtendPes.gf
+++ b/src/persian/ExtendPes.gf
@@ -3,7 +3,7 @@
 concrete ExtendPes of Extend =
   CatPes ** ExtendFunctor - [
     GenNP, ApposNP, ICompAP
-    ,GerundNP,GerundCN,GerundAdv
+    ,GerundNP,GerundCN,GerundAdv,EmbedPresPart
     ]
   with (Grammar=GrammarPes)
   ** open Prelude, ResPes in {
@@ -30,4 +30,6 @@ lin
   -- : VP -> Adv ;         -- publishing the document (prepositionless adverb)
   GerundAdv vp = lin Adv {s = showVPH Inf defaultAgr vp} ;
 
+  --  : VP -> SC ;
+  EmbedPresPart vp = lin SC {s = showVPH Inf defaultAgr vp} ;
 }