From 46bbbbf9b7dd887410c06f6ae0e95d8c5c502579 Mon Sep 17 00:00:00 2001
From: "jordi.saludes" <jordi.saludes@upc.edu>
Date: Sat, 29 May 2010 14:54:59 +0000
Subject: [PATCH] Fixed regular Adj ending in 'r' in Cat

---
 lib/src/catalan/LexiconCat.gf | 2 +-
 lib/src/catalan/MorphoCat.gf  | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/src/catalan/LexiconCat.gf b/lib/src/catalan/LexiconCat.gf
index 2d7be1aaa..453c3fd93 100644
--- a/lib/src/catalan/LexiconCat.gf
+++ b/lib/src/catalan/LexiconCat.gf
@@ -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" ;
diff --git a/lib/src/catalan/MorphoCat.gf b/lib/src/catalan/MorphoCat.gf
index b52b61b90..d97b4f73d 100644
--- 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  
 	} ;