(Ara) WIP fixing possessive dual forms. Doesn't work yet properly.

src/arabic/NounAra.gf

@@ -106,7 +106,7 @@ lin
   PossPron p = baseQuant ** {
     s = \\_,_,_,_ => BIND ++ p.s ! Gen;
     d = Poss;
-    is1sg = case p.a.pgn of { Per1 Sing => True ; _ => False } ;
+    is1sg = is1sg p.a ;
     isPron = True} ;
 
   NumSg = {

src/arabic/ResAra.gf

@@ -1181,11 +1181,17 @@ patHollowImp : (_,_ :Str) -> Gender => Number => Str =\xaf,xAf ->
     --dual suffixes
     dl : State => Case => Str =
       table {
-        (Const|Poss) =>
+        Const =>
           table {
             Nom => "َا";
             _   => "َيْ"
           };
+        Poss =>
+          table {
+            Nom => "َا" ; -- wrong for 1st person poss. suff
+            Bare => "َيَّ" ; -- this covers 1st person for genitive and accusative
+            _   => "َيْ"
+          };
         _ =>
           table {
             Nom  => "َانِ";