a variant of Polish mkRegAdj, mkRegAdj_s, using BIND instead of +, to work around what seems to be a compiler bug

2018-02-06 11:28:17 +01:00
parent 9de70d7f4d
commit 944566b3f4
2 changed files with 80 additions and 2 deletions
@@ -229,6 +229,15 @@
    MascPersPl | OthersPl => Pl ;
    _ => Sg
    } ;
+  --- AR 6/2/2018 
+  oper genGenNum : GenNum -> Gender = \n -> case n of {
+    MascPersSg => Masc Personal ;
+    MascAniSg => Masc Animate ;
+    MascInaniSg => Masc Inanimate ;
+    FemSg => Fem ;
+    NeutSg => Neut ; ---- NeutGr ?
+    _ => Plur
+    } ;

  param MaybeGenNum = NoGenNum | JustGenNum GenNum;