restored the use of conjunctCase in romance

2026-05-20 16:42:51 -06:00 · 2011-08-31 11:56:09 +00:00
parent 38db834a65
commit 40022d7af9
6 changed files with 13 additions and 16 deletions
--- a/lib/src/catalan/DiffCat.gf
+++ b/lib/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 ;