added ExtraFin.AdjAsCN

lib/src/finnish/ExtraFin.gf

@@ -265,4 +265,9 @@ concrete ExtraFin of ExtraFinAbs = CatFin **
       } ; 
 
 
+  AdjAsCN ap = {
+      s = \\nf => ap.s ! True ! (n2nform nf) ;
+      h = Back ; ---- TODO should be ap.h, which does not exist
+      } ;
+
 } 

lib/src/finnish/ExtraFinAbs.gf

@@ -4,7 +4,7 @@ abstract ExtraFinAbs = Extra [
   PassVPSlash, PassAgentVPSlash,
   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, RP, ProDrop] ** {
+  VV,VP,Conj,NP,Quant,IAdv,IComp,ICompAP,IAdvAdv,Adv,AP, Pron, RP, ProDrop, AdjAsCN] ** {
   flags coding=utf8 ;
 
   fun