mkSeparateN in Fin for multiword "compounds"

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

View File

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