fixed the treatment of swe verb of form _mmer

This commit is contained in:
aarne
2006-02-28 09:07:23 +00:00
parent 6f913778ea
commit ef06ecdb90
2 changed files with 6 additions and 2 deletions

View File

@@ -417,7 +417,11 @@ oper
let lek = init leka in
case last lek of {
"l" | "m" | "n" | "v" | "g" =>
mkV leka (lek + "er") lek (lek +"de") (lek +"t") (lek +"d") ;
let gom = case <lek : Tok> of {
_ + "mm" => init lek ;
_ => lek
}
in mkV leka (lek + "er") gom (gom +"de") (gom +"t") (gom +"d") ;
"r" =>
mkV leka lek lek (lek +"de") (lek +"t") (lek +"d") ;
_ => case leka of {