one more fix in irregV

2006-02-28 18:06:42 +00:00
parent a0eb5378c7
commit f3f141b842
1 changed files with 3 additions and 5 deletions
--- a/lib/resource-1.0/swedish/ParadigmsSwe.gf
+++ b/lib/resource-1.0/swedish/ParadigmsSwe.gf
@@ -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" ;