msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

one more fix in irregV

Browse Source
This commit is contained in:
aarne
2006-02-28 18:06:42 +00:00
parent 40a0b3b57b
commit dea5aa4aaa
1 changed files with 3 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
resource-1.0/swedish/ParadigmsSwe.gf
View File

@@ -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" ;