fixed the order of Fre.mkA. It should always be: SgMasc,(SgMascVoc,)SgFem,PlMasc,PlFem,Adv

This commit is contained in:
Aarne Ranta
2019-09-19 10:33:01 +02:00
parent 04d022c7f0
commit 55dac61fe5
3 changed files with 6 additions and 6 deletions
+2 -2
View File
@@ -73,7 +73,7 @@ oper
-- Here are some patterns. First one that describes the worst case.
mkAdj' : (_,_,_,_,_ : Str) -> Adj ;
mkAdj' vieux vieil vieuxs vieille vieillement = {
mkAdj' vieux vieil vieille vieuxs vieillement = {
s = table {
ASg Masc _ => pre {#voyelle => vieil ; "h" => vieil ; _ => vieux} ;
ASg Fem _ => vieille ;
@@ -83,7 +83,7 @@ oper
} ;
mkAdj : (_,_,_,_ : Str) -> Adj ;
mkAdj bleu bleus bleue bleuement = mkAdj' bleu bleu bleus bleue bleuement ;
mkAdj bleu bleue bleus bleuement = mkAdj' bleu bleu bleue bleus bleuement ;
-- Then the regular and invariant patterns.