From 85e37dbec40474fa134290b6e35c5ca870ce80bd Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Thu, 12 Jun 2014 06:45:28 +0000
Subject: [PATCH] mkSeparateN in Fin for multiword "compounds"

---
 lib/src/finnish/ParadigmsFin.gf    | 5 +++++
 lib/src/finnish/stemmed/WNKotus.gf | 3 ++-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/lib/src/finnish/ParadigmsFin.gf b/lib/src/finnish/ParadigmsFin.gf
index de916f8ed..9d4f25008 100644
--- a/lib/src/finnish/ParadigmsFin.gf
+++ b/lib/src/finnish/ParadigmsFin.gf
@@ -434,6 +434,11 @@ mkVS = overload {
         : Str) -> N = \a,b,c,d,e,f,g,h,i,j -> 
         lin N (nforms2snoun (nForms10 a b c d e f g h i j)) ;
 
+  mkSeparateN : Str -> N -> N = \unissa,kulkija -> {
+    s = \\c => unissa ++ kulkija.s ! c ; 
+    h = kulkija.h ;
+    lock_N = <>
+    } ;
   mkStrN : Str -> N -> N = \sora,tie -> {
     s = \\c => sora + tie.s ! c ; 
     h = tie.h ;
diff --git a/lib/src/finnish/stemmed/WNKotus.gf b/lib/src/finnish/stemmed/WNKotus.gf
index 6bff4185b..0fe69e6a0 100644
--- a/lib/src/finnish/stemmed/WNKotus.gf
+++ b/lib/src/finnish/stemmed/WNKotus.gf
@@ -11,7 +11,8 @@ oper
 
 -- lexicon constructors
 
-  separateN : Str -> N -> N = \s,n -> mkN (s + "_") n ;
+  separateN : Str -> N -> N = mkSeparateN ; -- pennin raha
+---  separateN : Str -> N -> N = \s,n -> mkN (s + "_") n ; -- pennin_raha
 
   compoundN : Str -> NForms -> N = \s,nf -> lin N (mkStrN s (nforms2snoun nf)) ;