From dc44af4a874ca4e528c25ca999406dbfe79b4d52 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Thu, 19 Jan 2006 17:27:46 +0000
Subject: [PATCH] workaround for a compilation bug for param defs (to be fixed)

---
 resource-1.0/romance/DiffRomance.gf | 2 +-
 resource-1.0/romance/NounRomance.gf | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/resource-1.0/romance/DiffRomance.gf b/resource-1.0/romance/DiffRomance.gf
index d3455153d..2e9e5bbff 100644
--- a/resource-1.0/romance/DiffRomance.gf
+++ b/resource-1.0/romance/DiffRomance.gf
@@ -10,7 +10,7 @@ param
 
   Case = Nom | Acc | CPrep Prep ; 
 
-  NPForm = Ton Case | Aton Case | Poss AAgr ;
+  NPForm = Ton Case | Aton Case | Poss {g : Gender ; n : Number} ; --- AAgr
 
   RelForm = RSimple Case | RComplex Gender Number Case ;
 
diff --git a/resource-1.0/romance/NounRomance.gf b/resource-1.0/romance/NounRomance.gf
index c922f663a..525524b95 100644
--- a/resource-1.0/romance/NounRomance.gf
+++ b/resource-1.0/romance/NounRomance.gf
@@ -33,7 +33,7 @@ incomplete concrete NounRomance of Noun =
       n = Sg
       } ;
     DetPl quant num ord = {
-      s = \\g,c => quant.s ! g ! c ++ num.s ! g ++ ord.s ! aagr g Sg ;
+      s = \\g,c => quant.s ! g ! c ++ num.s ! g ++ ord.s ! aagr g Pl ;
       n = Pl
       } ;
 
@@ -64,7 +64,7 @@ incomplete concrete NounRomance of Noun =
       n = Sg
       } ;
     DefPl = {
-      s = \\g,c => artDef g Sg c ;  
+      s = \\g,c => artDef g Pl c ;  
       n = Pl
       } ;