some more printing

This commit is contained in:
aarne
2004-04-19 15:33:45 +00:00
parent 9b47f67467
commit bd9ba5ce39
9 changed files with 62 additions and 30 deletions

View File

@@ -437,6 +437,7 @@ getHarmony : Str -> Str = \u -> case u of {
"kk" => ku + "k" ;
"pp" => ku + "p" ;
"tt" => ku + "t" ;
"nk" => ku + "ng" ;
"nt" => ku + "nn" ;
"mp" => ku + "mm" ;
"rt" => ku + "rr" ;
@@ -446,7 +447,7 @@ getHarmony : Str -> Str = \u -> case u of {
_ => ""
} ;
"rk" => kul + case o of {
"i" => "rj" ;
"i" => "j" ;
_ => ""
} ;
"hk" => kukk ; -- *tahko-tahon