Fixed regular Adj ending in 'r' in Cat

This commit is contained in:
jordi.saludes
2010-05-29 14:54:59 +00:00
parent cad022019a
commit 46bbbbf9b7
2 changed files with 2 additions and 1 deletions

View File

@@ -91,7 +91,7 @@ lin
girl_N = regFN "noia" ;
glove_N = regMN "guant" ;
gold_N = regMN "or" ;
good_A = mkADeg (mkA "bó" "bona" "bons" "bones" "bonament") (regA "millor") ; ---- adv?
good_A = mkADeg (mkA "bo" "bona" "bons" "bones" "bonament") (regA "millor") ; ---- adv?
go_V = (verbV (anar_4 "anar")) ;
green_A = regADeg "verd" ;
harbour_N = regMN "port" ;

View File

@@ -120,6 +120,7 @@ oper
mkAdjReg : Str -> Adj = \prim ->
case last prim of {
"e"|"u"|"o" => adjFondo prim ;
"l"|"r" => adjFidel prim ;
_ => adjPrim prim
} ;