From 08896eb34b5256147a489ffef37e44499c14a3aa Mon Sep 17 00:00:00 2001
From: aarneranta <aarne@chalmers.se>
Date: Thu, 24 Sep 2020 09:04:24 +0200
Subject: [PATCH] added ParadigmsFin.compoundA, totally different from prefixA
 (as now documented)

---
 src/finnish/ParadigmsFin.gf | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/src/finnish/ParadigmsFin.gf b/src/finnish/ParadigmsFin.gf
index e30c556e1..a1ffcc44b 100644
--- a/src/finnish/ParadigmsFin.gf
+++ b/src/finnish/ParadigmsFin.gf
@@ -199,10 +199,14 @@ oper
   invarA : Str -> A  -- invariant adjective, e.g. "kelpo"
     = \s -> lin A {s = \\_,_ => s ; h = Back ; p = [] ; hasPrefix = False} ; ----- stemming adds bogus endings
 
-  prefixA : Str -> A -> A = \pr,a -> a ** {
-    p = pr ;
-    hasPrefix = True
-    } ;
+  compoundA : Str -> A -> A  -- prefix glued to adjective, e.g. "hevos"+"vetoinen"
+    = \s,a -> lin A {s = \\d,c => s + a.s ! d ! c  ; h = a.h ; p = s + a.p ; hasPrefix = a.hasPrefix} ;
+
+  prefixA : Str -> A -> A -- in modifying use, an uninflected glued prefix, e.g. "sähkö" for "sähköinen"
+    = \pr,a -> a ** {
+      p = pr ;
+      hasPrefix = True
+      } ;
 
 -- Two-place adjectives need a case for the second argument.