corrections in Attempto grammars

2008-11-08 09:38:32 +00:00
parent 70e49b204c
commit fc0432e4e1
9 changed files with 48 additions and 34 deletions
@@ -331,8 +331,9 @@ oper
    } ;

  regGenN : Str -> Gender -> N = \bil, g -> case g of {
-    Utr => case last bil of {
-      "a" => decl1Noun bil ;
+    Utr => case bil of {
+      _ + "are" => decl5Noun bil ;
+      _ + "a" => decl1Noun bil ;
      _   => decl2Noun bil
      } ;
    Neutr => case last bil of {