unoptimize for Java ; Finnish

This commit is contained in:
aarne
2005-06-29 15:27:56 +00:00
parent 3f8fecbf30
commit ffe5c1b999
7 changed files with 70 additions and 21 deletions

View File

@@ -921,7 +921,7 @@ caseTable : Number -> CommonNoun -> Case => Str = \n,cn ->
vOttaa : (_,_ : Str) -> Verb = \ottaa,otan ->
let
i = if_then_Str (pbool2bool (Predef.occurs "ou" ottaa)) "i" "oi"
i = "i" ; --- wrong rule if_then_Str (pbool2bool (Predef.occurs "ou" ottaa)) "i" "oi"
in
vHuoltaa ottaa otan (Predef.tk 2 ottaa + i) (Predef.tk 2 otan + i + "n") ;