From e281cb6f5c5f150feb30f14321249920e842917c Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Fri, 21 Sep 2018 09:35:44 +0200
Subject: [PATCH] (Ara) Bugfix in DetCN: retain adjective every time

---
 src/arabic/NounAra.gf | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/arabic/NounAra.gf b/src/arabic/NounAra.gf
index 6dfe6727e..8e8c77e9e 100644
--- a/src/arabic/NounAra.gf
+++ b/src/arabic/NounAra.gf
@@ -8,12 +8,12 @@ lin
     number = sizeToNumber det.n;
     determiner : Case -> Str = \c -> 
       det.s ! cn.h ! (detGender cn.g det.n) ! c;
-    noun : Case -> Str = \c -> cn.s ! 
+    noun : Case -> NTable -> Str = \c,nt -> nt !
       number ! (nounState det.d number) ! (nounCase c det.n det.d)
     } in { 
       s = \\c => 
         case cnB4det det.isPron det.isNum det.n det.d of {
-          False => determiner c ++ noun c;
+          False => determiner c ++ noun c cn.s ++ noun c cn.adj ;
           --FIXME use the adj -> cn -> cn rule from below instead of 
           --repeating code
           True => cn.s ! number ! det.d ! c ++ det.s ! cn.h ! cn.g ! c