From 2e4c3b459396f6f475ad0015344bc7e9fc7d28f0 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Fri, 28 Dec 2012 14:24:56 +0000
Subject: [PATCH] possessive fixes in Fin

---
 lib/src/finnish/ExtraFin.gf | 4 ++--
 lib/src/finnish/NounFin.gf  | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/src/finnish/ExtraFin.gf b/lib/src/finnish/ExtraFin.gf
index 912211764..8da63dfac 100644
--- a/lib/src/finnish/ExtraFin.gf
+++ b/lib/src/finnish/ExtraFin.gf
@@ -145,8 +145,8 @@ concrete ExtraFin of ExtraFinAbs = CatFin **
     IAdvAdv adv = {s = "kuinka" ++ adv.s} ;
 
     ProDrop p = {
-      s = table {NPCase (Nom | Gen) => [] ; c => p.s ! c} ; 
-          ---- drop Gen only works in adjectival position
+      s = table {NPCase (Nom) => [] ; c => p.s ! c} ; 
+          ---- drop Gen only works in adjectival position: "autoni", but not in "ø täytyy mennä"
       a = p.a
       } ;
 
diff --git a/lib/src/finnish/NounFin.gf b/lib/src/finnish/NounFin.gf
index 19043805e..4cf6a6fc1 100644
--- a/lib/src/finnish/NounFin.gf
+++ b/lib/src/finnish/NounFin.gf
@@ -23,7 +23,7 @@ concrete NounFin of Noun = CatFin ** open ResFin, MorphoFin, Prelude in {
             <Pl,NPAcc,     _, _, False> => <k,  NCase Pl Part> ; -- myin kytkimiä
             <_, NPAcc,     _,True,_>    => <k,  NPossNom n> ;    -- myin kytkime+ni
             <_, NPCase Nom,_,True,_>    => <k,  NPossNom n> ;    -- kytkime+ni on/ovat...
-            <_, NPCase Gen,_,True,_>    => <k,  NPossNom n> ;    -- kytkime+ni vika
+            <_, NPCase Gen,_,True,_>    => <k,  NPossGen n> ;    -- kytkime+ni vika
             <_, NPCase Transl,_,True,_> => <k,  NPossTransl n> ; -- kytkim(e|i)kse+ni
             <_, NPCase Illat,_,True,_>  => <k,  NPossIllat n> ;  -- kytkim(ee|ii)+ni