mkSeparateN in Fin for multiword "compounds"

2014-06-12 06:45:28 +00:00
parent f7acad2817
commit 85e37dbec4
2 changed files with 7 additions and 1 deletions
--- 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)) ;