(Ara) misc. small fixes and cleanup

2018-12-29 18:45:47 +02:00
parent 06a3d83f02
commit 9a9b36dca8
4 changed files with 9 additions and 25 deletions
@@ -551,7 +551,9 @@ resource ParadigmsAra = open

  brkN' : Str -> Str -> Str -> Gender -> Species -> N =
    \root,sg,pl,gen,spec ->
-    let { kitAb = mkWord sg root;
+    let { kitAb = case root of {
+            ? + ? + "ي" => mkDefectiveAlifMaqsura (mkPat sg) (mkRoot3 root) ;
+            _           => mkWord sg root };
          kutub = mkWord pl root
    } in mkFullN (reg kitAb kutub) gen spec;