Fixed regular Adj ending in 'r' in Cat

2010-05-29 14:54:59 +00:00
parent cad022019a
commit 46bbbbf9b7
2 changed files with 2 additions and 1 deletions
--- a/lib/src/catalan/MorphoCat.gf
+++ b/lib/src/catalan/MorphoCat.gf
@@ -120,6 +120,7 @@ oper
  mkAdjReg : Str -> Adj = \prim ->
 	case last prim of {
 		"e"|"u"|"o"	=> adjFondo prim ;
+		"l"|"r"       => adjFidel prim ;
 		_			=> adjPrim prim  
 	} ;