some additions to lib API

lib/src/finnish/ExtraFin.gf

@@ -89,4 +89,10 @@ 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
+      a = p.a
+      } ;
+
 } 

lib/src/finnish/ExtraFinAbs.gf

@@ -1,6 +1,6 @@
 abstract ExtraFinAbs = Extra [
   GenNP,VPI,ListVPI,BaseVPI,ConsVPI,MkVPI,ComplVPIVV,ConjVPI,
-  VV,VP,Conj,NP,Quant,IAdv,IComp,ICompAP,IAdvAdv,Adv,AP] ** {
+  VV,VP,Conj,NP,Quant,IAdv,IComp,ICompAP,IAdvAdv,Adv,AP, Pron, ProDrop] ** {
 
   fun
     AdvExistNP : Adv -> NP -> Cl ;        -- kuvassa olemme me