From 7fc42192d7b58fdf55f2f88d7f7789b2a79ac8da Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Thu, 28 Jul 2022 15:32:09 +0200
Subject: [PATCH] (Fin) call mkPrefixA if mkA's argument ends in -

---
 src/finnish/ParadigmsFin.gf | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/src/finnish/ParadigmsFin.gf b/src/finnish/ParadigmsFin.gf
index 87e9ccd24..941448847 100644
--- a/src/finnish/ParadigmsFin.gf
+++ b/src/finnish/ParadigmsFin.gf
@@ -713,7 +713,15 @@ mkVS = overload {
     mkA : V -> A = presActA ;
     } ;
 
-  mkA_1 : Str -> A = \x -> lin A (noun2adjDeg (mk1N x)) ;
+  -- Adjectives that are not really adjectives are given in WordNet like "sähkö-"
+  -- We can at least make them into prefixA to make slightly better linearisation.
+  mkA_1 : Str -> A = \x ->
+    case x of {
+      prefix + "-"
+        => let regA : A = noun2adjDeg (mk1N prefix) ;
+            in prefixA prefix regA ;
+      _ => noun2adjDeg (mk1N x)
+    } ;
 
 -- auxiliaries
   mkAdjective : (_,_,_ : SAdj) -> A = \hyva,parempi,paras -> lin A