mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-10-18 14:23:10 -06:00
one more fix in irregV
This commit is contained in:
1 parent
a0eb5378c7
commit
f3f141b842
1 file changed
+3
-5
@@ -454,12 +454,10 @@ oper
|
||||
|
||||
irregV = \sälja, sålde, sålt ->
|
||||
let
|
||||
a = last sälja ;
|
||||
sälj = case a of {
|
||||
"a" => init sälja ;
|
||||
_ => sälja
|
||||
säljer = case last sälja of {
|
||||
"a" => conj2 sälja ;
|
||||
_ => conj3 sälja
|
||||
} ;
|
||||
säljer = conj2 sälja ;
|
||||
såld = case Predef.dp 2 sålt of {
|
||||
"it" => Predef.tk 2 sålt + "en" ;
|
||||
"tt" => Predef.tk 2 sålt + "dd" ;
|
||||
|
||||
Reference in new issue
Block a user