From 14efc8a8a51ce8feaae937c8439e044e1d292fc0 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Mon, 4 Jan 2010 21:16:34 +0000
Subject: [PATCH] bug fixes in Finnish

---
 lib/src/finnish/ExtraFinAbs.gf   | 2 +-
 lib/src/finnish/IdiomFin.gf      | 4 ++--
 lib/src/finnish/StructuralFin.gf | 4 ++--
 lib/src/parse/oald/OaldEng.gf    | 2 +-
 4 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/lib/src/finnish/ExtraFinAbs.gf b/lib/src/finnish/ExtraFinAbs.gf
index 824411120..8459af853 100644
--- a/lib/src/finnish/ExtraFinAbs.gf
+++ b/lib/src/finnish/ExtraFinAbs.gf
@@ -8,7 +8,7 @@ abstract ExtraFinAbs = Extra [
 
     RelExistNP : Prep -> RP -> NP -> RCl ; -- jossa on jazzia
 
-    i_implicPron : Pron ;                 -- (minä), minut, ...
+    i_implicPron : Pron ;                 -- (minä), minut, ...
     whatPart_IP : IP ;
 
     PartCN : CN -> NP ;                   -- olutta
diff --git a/lib/src/finnish/IdiomFin.gf b/lib/src/finnish/IdiomFin.gf
index 99b0e2080..ab93d01c2 100644
--- a/lib/src/finnish/IdiomFin.gf
+++ b/lib/src/finnish/IdiomFin.gf
@@ -16,9 +16,9 @@ concrete IdiomFin of Idiom = CatFin **
 
     ExistIP ip = 
       let
-        cas : NPForm = NPCase Part ; --- dep on num, pol?
+        cas : NPForm = NPCase Nom ; ---- also partitive in Extra
         vp = insertObj (\\_,b,_ => "olemassa") (predV olla) ; 
-        cl = mkClause (subjForm (ip ** {isPron = False ; a = agrP3 Sg}) cas) (agrP3 Sg) vp
+        cl = mkClause (subjForm (ip ** {isPron = False ; a = agrP3 ip.n}) cas) (agrP3 Sg) vp
       in {
         s = \\t,a,p => cl.s ! t ! a ! p ! SDecl
         } ;
diff --git a/lib/src/finnish/StructuralFin.gf b/lib/src/finnish/StructuralFin.gf
index a4379b2af..b753c9653 100644
--- a/lib/src/finnish/StructuralFin.gf
+++ b/lib/src/finnish/StructuralFin.gf
@@ -212,7 +212,7 @@ oper
 
   kukaInt : MorphoFin.Number => (MorphoFin.Case) => Str = 
     let 
-      kuka = mkN "kuka" "kenen" "kenä" "ketä" "keneen" 
+      kuka = mkN "kuka" "kenen" "ketä" "kenä" "keneen" 
                  "keiden" "keitä" "keinä" "keissä" "keihin" ;
     in
     table {
@@ -275,7 +275,7 @@ oper
     } ;
 
 lin
-  not_Predet = {s = \\_,_ => "vain"} ;
+  not_Predet = {s = \\_,_ => "ei"} ;
 
   no_Quant = heavyQuant {
     s1 = \\n,c => "ei" ++ mikaanPron ! n ! c ;
diff --git a/lib/src/parse/oald/OaldEng.gf b/lib/src/parse/oald/OaldEng.gf
index 8456e1a91..5cf7ef486 100644
--- a/lib/src/parse/oald/OaldEng.gf
+++ b/lib/src/parse/oald/OaldEng.gf
@@ -43964,4 +43964,4 @@ lin 
 lin élite_N = mkN "élite" "élites";
 lin émigré_N = mkN "émigré" "émigrés";
 lin épée_N = mkN "épée" "épées";
-}
\ No newline at end of file
+}