From 2340a985075046d72f7a964744459115aa4167ee Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Mon, 12 Sep 2022 13:25:34 +0200
Subject: [PATCH] (Fin) Add linearisation to AdjAsCN, AdjAsNP

---
 src/finnish/ExtendFin.gf | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/finnish/ExtendFin.gf b/src/finnish/ExtendFin.gf
index 7750f63a..26837de7 100644
--- a/src/finnish/ExtendFin.gf
+++ b/src/finnish/ExtendFin.gf
@@ -9,6 +9,7 @@ concrete ExtendFin of Extend =
     ,PassVPSlash, PassAgentVPSlash
     ,CardCNCard
     ,UttAccNP
+    ,AdjAsCN, AdjAsNP
     ]
   with
     (Grammar = GrammarFin) **
@@ -237,5 +238,6 @@ lin CardCNCard card cn = {
   } ;
 
 lin UttAccNP np = {s = P.addNegation np.isNeg ++ np.s ! NPAcc} ;
-
+lin AdjAsCN ap = {s = ap.s ! True ; postmod = \\_ => ap.p ; h = Back} ; ---- Harmony just a guess
+lin AdjAsNP ap = MassNP (AdjAsCN ap) ;
 }