fixes in finnish verbs

This commit is contained in:
aarne
2006-05-11 14:30:24 +00:00
parent 660644fcf5
commit a90dbdd2c5
3 changed files with 15 additions and 4 deletions

View File

@@ -687,7 +687,7 @@ caseTable : Number -> CommonNoun -> Case => Str = \n,cn ->
o = last juo ;
a = last taa ;
u = ifTok Str a "a" "u" "y" ;
soudin = souti + "n" ; ----weakGrade souti + "n" ;
soudin = weakGrade (init souti) + "in" ;
in case taa of {
"lla" | "llä" => vJuosta soutaa soudan (juo + o+u+"t") (juo + "t"+u) ;
"taa" | "tää" => vHuoltaa soutaa soudan souti soudin ;