restored the use of conjunctCase in romance

2011-08-31 11:56:09 +00:00
parent fe3b40c53c
commit ef79f47a33
6 changed files with 13 additions and 16 deletions
--- a/src/catalan/DiffCat.gf
+++ b/src/catalan/DiffCat.gf
@@ -50,9 +50,9 @@ oper
      _ => prepCase c ++ artDef g Sg (CPrep P_de)
      } ;

-    conjunctCase : NPForm -> NPForm = \c -> case c of {
-      Ton Nom | Aton Nom => Ton Nom ;
-      _ => Ton Acc 
+    conjunctCase : Case -> Case = \c -> case c of {
+      Nom => Nom ;
+      _ => Acc 
      } ;

    auxVerb : VType -> (VF => Str) = \_ -> haver_V.s ;