mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-22 09:32:53 -06:00
fixed the treatment of swe verb of form _mmer
This commit is contained in:
@@ -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 {
|
||||
|
||||
Reference in New Issue
Block a user