From 59ee4e97f4dc841fe9897c51f726a718b2bc4723 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Tue, 20 Nov 2012 13:51:08 +0000
Subject: [PATCH] fixes in ExtraFin

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

diff --git a/lib/src/finnish/ExtraFin.gf b/lib/src/finnish/ExtraFin.gf
index 408933800..912211764 100644
--- a/lib/src/finnish/ExtraFin.gf
+++ b/lib/src/finnish/ExtraFin.gf
@@ -13,6 +13,8 @@ concrete ExtraFin of ExtraFinAbs = CatFin **
       isNeg = False 
      } ;
 
+    GenIP ip = {s = \\_,_ => ip.s ! NPCase Gen} ;
+
     GenCN n1 n2 = {s = \\nf => n1.s ! NPCase Gen ++ n2.s ! nf} ;
 
   lincat
@@ -85,7 +87,7 @@ concrete ExtraFin of ExtraFinAbs = CatFin **
 
     AdvPredNP  adv v np =
       mkClause (\_ -> adv.s) np.a (insertObj 
-        (\\_,b,_ => np.s ! NPCase Nom) (predV v)) ;
+        (\\_,b,_ => subjForm np v.sc b) (predV v)) ;
 
     ICompExistNP adv np = 
       let cl = mkClause (\_ -> adv.s ! np.a) np.a (insertObj 
diff --git a/lib/src/finnish/ExtraFinAbs.gf b/lib/src/finnish/ExtraFinAbs.gf
index ce27aa857..01e7850ae 100644
--- a/lib/src/finnish/ExtraFinAbs.gf
+++ b/lib/src/finnish/ExtraFinAbs.gf
@@ -1,5 +1,5 @@
 abstract ExtraFinAbs = Extra [
-  GenNP,
+  GenNP,GenIP,
   VPI,ListVPI,BaseVPI,ConsVPI,MkVPI,ComplVPIVV,ConjVPI,
   VPS,ListVPS,BaseVPS,ConsVPS,ConjVPS,MkVPS,PredVPS,ConjVPS,Tense,Temp,Pol,S,
   VV,VP,Conj,NP,Quant,IAdv,IComp,ICompAP,IAdvAdv,Adv,AP, Pron, ProDrop] ** {