From 9dd42f472ab23114407434e85b08eb95e913c3cc 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

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

diff --git a/src/finnish/ExtraFin.gf b/src/finnish/ExtraFin.gf
index 0dce27e4..57a531a3 100644
--- a/src/finnish/ExtraFin.gf
+++ b/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/src/finnish/ExtraFinAbs.gf b/src/finnish/ExtraFinAbs.gf
index 0ca1fc4e..3fa884d9 100644
--- a/src/finnish/ExtraFinAbs.gf
+++ b/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