From 99f19c65b3f0931a3e6cba4718fd6310ae864d0e Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Tue, 27 May 2008 20:54:31 +0000
Subject: [PATCH] some fixes in pattern matching in Compute

---
 resource-1.4/french/MorphoFre.gf      | 2 +-
 resource-1.4/romance/CommonRomance.gf | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/resource-1.4/french/MorphoFre.gf b/resource-1.4/french/MorphoFre.gf
index 5464c8875..a27c1ebf4 100644
--- a/resource-1.4/french/MorphoFre.gf
+++ b/resource-1.4/french/MorphoFre.gf
@@ -11,7 +11,7 @@
 resource MorphoFre = CommonRomance, ResFre ** 
   open PhonoFre, Prelude, Predef in {
 
-flags optimize=noexpand ;
+flags optimize=all ;
 
 --2 Front vowels
 --
diff --git a/resource-1.4/romance/CommonRomance.gf b/resource-1.4/romance/CommonRomance.gf
index fec810bed..528ea22d8 100644
--- a/resource-1.4/romance/CommonRomance.gf
+++ b/resource-1.4/romance/CommonRomance.gf
@@ -58,8 +58,8 @@ oper
     } ;
   
   conjGender : Gender -> Gender -> Gender = \m,n -> 
-    case <m,n> of {
-      <Fem,Fem> => Fem ;
+    case m of {
+      Fem => n ;
       _ => Masc 
       } ;