mkSeparateN in Fin for multiword "compounds"

This commit is contained in:
aarne committed 2014-06-12 06:45:28 +00:00
1 parent 43faff66e7
commit cf2a13527e
2 files changed
+7 -1

No files matched your search

+2 -1
View File
@@ -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)) ;