(Fre) Fix bug in predicative adj + add unit test

This commit is contained in:
Inari Listenmaa
2021-09-15 14:53:11 +08:00
parent 5281c3ba71
commit 88d0217d10
2 changed files with 26 additions and 1 deletions
+2 -1
View File
@@ -75,7 +75,8 @@ oper
mkAdj' : (_,_,_,_,_ : Str) -> Adj ;
mkAdj' vieux vieil vieille vieuxs vieillement = {
s = table {
ASg Masc _ => pre {#voyelle => vieil ; "h" => vieil ; _ => vieux} ;
ASg Masc AAttr => pre {#voyelle => vieil ; "h" => vieil ; _ => vieux} ;
ASg Masc APred => vieux ; -- `ce vin est nouveau et bon', not *nouvel et bon
ASg Fem _ => vieille ;
APl g => genForms vieuxs (vieille + "s") ! g ;
AA => vieillement