fix in tc

2005-09-13 21:05:32 +00:00
parent ff0a5c418c
commit 3d983c1d85
4 changed files with 30 additions and 7 deletions
--- a/lib/resource/finnish/SyntaxFin.gf
+++ b/lib/resource/finnish/SyntaxFin.gf
@@ -739,7 +739,10 @@ oper
 -}

  complCase : Bool -> ComplCase -> SVIForm -> NPForm = \b,c,v -> case c of {
-    CCase k => NPCase k ;
+    CCase k => case <k,b> of {
+      <Nom,False> => NPCase Part ;
+      _ => NPCase k
+      } ;
    CAcc => case b of {
      True => case v of {
        SCl _ => NPAccGen ;