From 213e505e9ae90c2f8b719d61737e6b438579d640 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Wed, 26 Dec 2018 14:32:43 +0100
Subject: [PATCH] (Ara) add SentAP

---
 src/arabic/AdjectiveAra.gf | 9 ++++-----
 src/arabic/MissingAra.gf   | 1 -
 2 files changed, 4 insertions(+), 6 deletions(-)

diff --git a/src/arabic/AdjectiveAra.gf b/src/arabic/AdjectiveAra.gf
index 49d300c3b..ed897a8cb 100644
--- a/src/arabic/AdjectiveAra.gf
+++ b/src/arabic/AdjectiveAra.gf
@@ -29,11 +29,10 @@ concrete AdjectiveAra of Adjective = CatAra ** open ResAra, Prelude in {
 --      isPre = False
 --      } ;
 --
---    SentAP ap sc = {
---      s = \\a => ap.s ! a ++ sc.s ;
---      isPre = False
---      } ;
---
+  SentAP ap sc = ap ** {
+    s = \\sp,g,n,st,c => ap.s ! sp ! g ! n ! st ! c ++ sc.s ;
+    } ;
+
   AdAP ada ap = {
     s = \\sp,g,n,st,c => ap.s ! sp ! g ! n ! st ! c ++ ada.s
     } ;
diff --git a/src/arabic/MissingAra.gf b/src/arabic/MissingAra.gf
index fa52d74a5..9dfe21b1d 100644
--- a/src/arabic/MissingAra.gf
+++ b/src/arabic/MissingAra.gf
@@ -22,7 +22,6 @@ oper PredSCVP : SC -> VP -> Cl = notYet "PredSCVP" ;
 oper ProgrVP : VP -> VP = notYet "ProgrVP" ;
 oper ReflA2 : A2 -> AP = notYet "ReflA2" ;
 oper ReflVP : VPSlash -> VP = notYet "ReflVP" ;
-oper SentAP : AP -> SC -> AP = notYet "SentAP" ;
 oper SentCN : CN -> SC -> CN = notYet "SentCN" ;
 oper SlashPrep : Cl -> Prep -> ClSlash = notYet "SlashPrep" ;
 oper Slash2V3 : V3 -> NP -> VPSlash = notYet "Slash2V3" ;