(Ara) diacritics

2018-11-02 18:01:14 +01:00
parent 62ea7c82a9
commit 2d112e3a55
5 changed files with 27 additions and 28 deletions
@@ -99,12 +99,12 @@ concrete StructuralAra of Structural = CatAra **
  which_IQuant = {
    s = \\s,c => case <c,s> of {
             <Bare,_>    => "أيّ" ;
-             <Nom,Indef> => "أيٌّ" ;
-             <Nom,_>     => "أيُّ" ;
+             <Nom,Indef> => "أيٌّ" ;
+             <Nom,_>     => "أيُّ" ;
             <Acc,Indef> => "أيّاً" ;
-             <Acc,_>     => "أيَّ" ;
-             <Gen,Indef> => "أيٍّ" ;
-             <Gen,_>     => "أيِّ"
+             <Acc,_>     => "أيَّ" ;
+             <Gen,Indef> => "أيٍّ" ;
+             <Gen,_>     => "أيِّ"
             }
    } ;
  whoSg_IP = mkIP "مَنْ" Sg ;