From 5957dcf30190b56f4b052b1e231c28abacd1166d Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Tue, 15 Jan 2019 16:54:08 +0100
Subject: [PATCH] (Ara) misc small fixes

---
 src/arabic/AdverbAra.gf     | 2 +-
 src/arabic/ResAra.gf        | 6 +++---
 src/arabic/StructuralAra.gf | 4 ++--
 3 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/arabic/AdverbAra.gf b/src/arabic/AdverbAra.gf
index 40bf7dab..2e5630b2 100644
--- a/src/arabic/AdverbAra.gf
+++ b/src/arabic/AdverbAra.gf
@@ -13,7 +13,7 @@ concrete AdverbAra of Adverb = CatAra ** open ResAra, Prelude in {
 
     PrepNP prep np = {s = prep.s ++ bindIf (orB np.a.isPron prep.binds) ++ np.s ! prep.c} ;
 
-    AdAdv ad av = cc2 av ad ;
+    AdAdv ad av = cc2 ad av ;
 
     -- : Subj -> S -> Adv ;              -- when she sleeps
     SubjS subj s = {s = subj.s ++ s.s ! subj.o} ;
diff --git a/src/arabic/ResAra.gf b/src/arabic/ResAra.gf
index 611ea91f..3f7df6a9 100644
--- a/src/arabic/ResAra.gf
+++ b/src/arabic/ResAra.gf
@@ -194,7 +194,7 @@ resource ResAra = PatternsAra ** open  Prelude, Predef, OrthoAra, ParamX  in {
       } ;
 
     uttNum : NumOrdCard -> (Gender => Str) ;
-    uttNum n = \\g => n.s ! g ! Const ! Bare ;
+    uttNum n = \\g => n.s ! Fem ! Const ! Bare ;
 
   param
     VForm =
@@ -2031,8 +2031,8 @@ patGeminateImp : (_,_ :Str) -> Gender => Number => Str = \facc,facic ->
 
     regNum : Str -> Str ->
       {s : DForm => CardOrd => Gender => State => Case => Str} =
-      \xams,xAmis ->
-      let { xamsa = xams + "َة";
+      \xams{-card-}, xAmis{-ord-} ->
+      let { xamsa = xams ; -- + "َة";
             xAmisa = xAmis +  "َة"} in
       mkNum xamsa xAmis xAmisa;
 
diff --git a/src/arabic/StructuralAra.gf b/src/arabic/StructuralAra.gf
index 09ed0aff..a8066989 100644
--- a/src/arabic/StructuralAra.gf
+++ b/src/arabic/StructuralAra.gf
@@ -72,7 +72,7 @@ concrete StructuralAra of Structural = CatAra **
   possess_Prep = liPrep ;
 --  quite_Adv = ss "قُِتي" ;
   she_Pron = ResAra.she_Pron ;
---  so_AdA = ss "سْ" ;
+  so_AdA = very_AdA ;
   somebody_NP = regNP "أَحَد" Sg Indef ;
   someSg_Det = mkDet "أَحَد" Sg Const ;
   somePl_Det = mkDet "بَعض" Pl Const ;
@@ -94,7 +94,7 @@ concrete StructuralAra of Structural = CatAra **
 --  too_AdA = ss "تّْ" ;
   to_Prep = mkPrep "إِلَى" ;
   under_Prep = mkPrep "تَحْتَ" ;
---  very_AdA = ss "ثري" ;
+  very_AdA = ss "جِدّاً" ;
   want_VV = mkVV (mkV "رود" FormIV) ;
   we_Pron = ResAra.we_Pron ;
   whatPl_IP = mkIP "ما" "ماذا" Pl ;