some fixes in pattern matching in Compute

2008-05-27 20:54:31 +00:00
parent 5d63852680
commit db1d804e7e
4 changed files with 55 additions and 96 deletions
--- a/lib/resource-1.4/french/MorphoFre.gf
+++ b/lib/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
 --
--- a/lib/resource-1.4/romance/CommonRomance.gf
+++ b/lib/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 
      } ;