From f48585151f017ea83bd3eda524f028a4deef73de Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Sun, 24 Apr 2016 08:44:29 +0000
Subject: [PATCH] added ExtraFin.AdjAsCN

---
 lib/src/finnish/ExtraFin.gf    | 5 +++++
 lib/src/finnish/ExtraFinAbs.gf | 2 +-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/lib/src/finnish/ExtraFin.gf b/lib/src/finnish/ExtraFin.gf
index 0dce27e4d..57a531a3e 100644
--- a/lib/src/finnish/ExtraFin.gf
+++ b/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
+      } ;
+
 } 
diff --git a/lib/src/finnish/ExtraFinAbs.gf b/lib/src/finnish/ExtraFinAbs.gf
index 0ca1fc4e3..3fa884d95 100644
--- a/lib/src/finnish/ExtraFinAbs.gf
+++ b/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