msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
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 a0eb5378c7
commit f3f141b842
1 changed files with 3 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -454,12 +454,10 @@ oper
irregV = \sälja, sålde, sålt -> irregV = \sälja, sålde, sålt ->
let let
a = last sälja ; säljer = case last sälja of {
sälj = case a of { "a" => conj2 sälja ;
"a" => init sälja ; _ => conj3 sälja
_ => sälja
} ; } ;
säljer = conj2 sälja ;
såld = case Predef.dp 2 sålt of { såld = case Predef.dp 2 sålt of {
"it" => Predef.tk 2 sålt + "en" ; "it" => Predef.tk 2 sålt + "en" ;
"tt" => Predef.tk 2 sålt + "dd" ; "tt" => Predef.tk 2 sålt + "dd" ;