"Simplified regA for Cat"

This commit is contained in:
jordi.saludes
2011-08-18 16:20:37 +00:00
parent d0dad690e4
commit 29bdca7596

View File

@@ -119,8 +119,8 @@ oper
mkAdjReg : Str -> Adj = \prim ->
case prim of {
_ + "e" + ("r"|"l") => adjPrim prim ;
_ + ("r"|"l") => adjFidel prim ;
-- _ + "e" + ("r"|"l") => adjPrim prim ;
_ + "l" => adjFidel prim ;
_ + ("e"|"u"|"o") => adjFondo prim ;
_ => adjPrim prim
} ;