corrections in Attempto grammars

This commit is contained in:
aarne
2008-11-08 09:38:32 +00:00
parent 70e49b204c
commit fc0432e4e1
9 changed files with 48 additions and 34 deletions

View File

@@ -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 {