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

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