From dea5aa4aaa0de2c6db535efb0738127024266b35 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Tue, 28 Feb 2006 18:06:42 +0000
Subject: [PATCH] one more fix in irregV

---
 resource-1.0/swedish/ParadigmsSwe.gf | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/resource-1.0/swedish/ParadigmsSwe.gf b/resource-1.0/swedish/ParadigmsSwe.gf
index 75258e623..17bb578e6 100644
--- a/resource-1.0/swedish/ParadigmsSwe.gf
+++ b/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" ;