mkSeparateN in Fin for multiword "compounds"

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

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)) ;