From 0291ac6f75f6a37a43fd926b9d79decb10869262 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Wed, 13 Mar 2019 10:59:11 +0100
Subject: [PATCH] (Pes) Add ICompAP 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 077c87f7..11836635 100644
--- a/src/persian/ExtendPes.gf
+++ b/src/persian/ExtendPes.gf
@@ -2,7 +2,7 @@
 
 concrete ExtendPes of Extend =
   CatPes ** ExtendFunctor - [
-    GenNP, ApposNP
+    GenNP, ApposNP, ICompAP
     ]
   with (Grammar=GrammarPes)
   ** open Prelude, ResPes in {
@@ -18,4 +18,6 @@ lin
   ApposNP np1 np2 = np1 ** {
     s = \\m => np1.s ! m ++ np2.s ! m
   } ;
+
+  ICompAP ap = {s = "چقدر" ++ ap.s ! Bare} ;
 }