From daa01f11d8204e51d47ed6ffa671ca7217020bad Mon Sep 17 00:00:00 2001
From: "jordi.saludes" <jordi.saludes@upc.edu>
Date: Sat, 29 May 2010 15:31:28 +0000
Subject: [PATCH] Added a case for regular adj in Cat

---
 lib/src/catalan/MorphoCat.gf | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/lib/src/catalan/MorphoCat.gf b/lib/src/catalan/MorphoCat.gf
index d97b4f73d..15e48474a 100644
--- a/lib/src/catalan/MorphoCat.gf
+++ b/lib/src/catalan/MorphoCat.gf
@@ -118,10 +118,11 @@ oper
 	mkAdj fidel fidel fidels fidels (fidel + "ment") ;
 
   mkAdjReg : Str -> Adj = \prim ->
-	case last prim of {
-		"e"|"u"|"o"	=> adjFondo prim ;
-		"l"|"r"       => adjFidel prim ;
-		_			=> adjPrim prim  
+	case prim of {
+		_ + "e" + ("r"|"l") => adjPrim prim ;
+		_ + ("r"|"l")       => adjFidel prim ;
+		_ + ("e"|"u"|"o")   => adjFondo prim ;
+		_                   => adjPrim prim  
 	} ;