From ef06ecdb903f3b397399a387a9db96fa55398219 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Tue, 28 Feb 2006 09:07:23 +0000
Subject: [PATCH] fixed the treatment of swe verb of form _mmer

---
 lib/resource-1.0/swedish/IrregSwe.gf     | 2 +-
 lib/resource-1.0/swedish/ParadigmsSwe.gf | 6 +++++-
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/lib/resource-1.0/swedish/IrregSwe.gf b/lib/resource-1.0/swedish/IrregSwe.gf
index 4b723f700..3d09bc50b 100644
--- a/lib/resource-1.0/swedish/IrregSwe.gf
+++ b/lib/resource-1.0/swedish/IrregSwe.gf
@@ -93,7 +93,7 @@ concrete IrregSwe of IrregSweAbs = CatSwe ** open ParadigmsSwe in {
   inskriva_V = irregV "inskriva" "inskrev" "inskrivit" ;
   intaga_V = irregV "intaga" "intog" "intagit" ;
   känna_V = irregV "känna" "kände" "känt" ;
-  klämma_V = irregV "klämma" "klämde" "klämt" ;
+  klämma_V = regV "klämmer" ;
   kliva_V = irregV "kliva" "klev" "klivit" ;
   klyva_V = irregV "klyva" "klöv" "kluvit" ;
   knipa_V = irregV "knipa" "knep" "knipit" ;
diff --git a/lib/resource-1.0/swedish/ParadigmsSwe.gf b/lib/resource-1.0/swedish/ParadigmsSwe.gf
index 09dedd907..518954ff7 100644
--- a/lib/resource-1.0/swedish/ParadigmsSwe.gf
+++ b/lib/resource-1.0/swedish/ParadigmsSwe.gf
@@ -417,7 +417,11 @@ oper
     let lek = init leka in
     case last lek of {
       "l" | "m" | "n" | "v" | "g" => 
-        mkV leka (lek + "er") lek (lek +"de") (lek +"t") (lek +"d") ;
+        let gom = case <lek : Tok> of {
+          _ + "mm" => init lek ;
+          _ => lek
+          }
+        in mkV leka (lek + "er") gom (gom +"de") (gom +"t") (gom +"d") ;
       "r" =>
         mkV leka lek lek (lek +"de") (lek +"t") (lek +"d") ;
       _ => case leka of {