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/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 
      } ;