From b33b7aa3397af86b5e99ab7d51fa5607cd2de200 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Wed, 4 Jun 2008 13:51:39 +0000
Subject: [PATCH] finnish who_IP corrected; previous patch was to complete 1.4
 for Finnish

---
 lib/resource-1.4/finnish/StructuralFin.gf | 15 ++++++---------
 1 file changed, 6 insertions(+), 9 deletions(-)

diff --git a/lib/resource-1.4/finnish/StructuralFin.gf b/lib/resource-1.4/finnish/StructuralFin.gf
index a394dc4e6..177867225 100644
--- a/lib/resource-1.4/finnish/StructuralFin.gf
+++ b/lib/resource-1.4/finnish/StructuralFin.gf
@@ -210,20 +210,17 @@ oper
       } ;
 
   kukaInt : MorphoFin.Number => (MorphoFin.Case) => Str = 
-    let {
-      ku = mkN "kuka" "keitä" ;    -----
-      ket = mkN "kuka" "keitä"} in
+    let 
+      kuka = mkN "kuka" "kenen" "kenä" "ketä" "keneen" 
+                 "keiden" "keitä" "keinä" "keissä" "keihin" ;
+    in
     table {
       Sg => table {
-        Nom => "kuka" ;
-        Part => "ketä" ;
-        Illat => "keneen" ;
-        c   => ku.s ! NCase Sg c
+        c   => kuka.s ! NCase Sg c
        } ; 
       Pl => table {
         Nom => "ketkä" ;
-        Illat => "keihin" ;
-        c   => ket.s ! NCase Pl c
+        c   => kuka.s ! NCase Pl c
         }
       } ;
   mikaanPron : MorphoFin.Number => (MorphoFin.Case) => Str = \\n,c =>