From c8523f041384ea790e0c4d952a59493d3f8baf4e Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Mon, 21 Jan 2019 14:01:20 +0100
Subject: [PATCH] (Ara) Small bugfixes that came from changing DefForms

---
 src/arabic/MorphoAra.gf | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

diff --git a/src/arabic/MorphoAra.gf b/src/arabic/MorphoAra.gf
index 95ee44da..279815a0 100644
--- a/src/arabic/MorphoAra.gf
+++ b/src/arabic/MorphoAra.gf
@@ -647,12 +647,9 @@ oper
      rumi = mkDefective fuci rmy ;
      rumu = mkDefective fucu rmy ;
      rumiy = mkStrong fucilo rmy ;
-     armi = "َ" + _rmi ;
-     armu = "َ" + _rmu ;
-     ad3i = case vowImpf of {
-              u => "َ" + mkDefective fci rmy ;
-              _ => armu
-            } ;
+     ad3i = "َ" + mkDefective fci rmy ; -- Per2 Sg Fem: always i
+     armu = "َ" + _rmu ;                -- Per2/Per3 Pl Masc: always u/a
+     armi = "َ" + _rmi ;                -- rest of the forms: depends on vowImpf
      urma = mkDefective ufca rmy ;
      eirmi = prefixImp ! vowImpf + _rmi;
      eirmu = prefixImp ! vowImpf + _rmu;
@@ -822,7 +819,7 @@ v4doubleweak : Root3 -> Verb = \r'y ->
       r' = ry  ** {l = "ء"} ;
       eirA'at = mkStrong eifcAl r' + "َة" ;
       vforms : DefForms = table {
-        11 => rmSukun eirA'at ;
+        12 => rmSukun eirA'at ;
         n  => rmSukun (v4DefForms ry ! n) -- only remove the first sukun
       } ;
    in verbDoubleDef vforms i ; -- sukun in suffixes is removed in verbDoubleDef