From 047f1decd3a0b2aef80e2eeaa65bc19b7e19877a Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Sun, 24 Aug 2008 15:35:06 +0000
Subject: [PATCH] fixed unstressed e in Swedish fifth declension

---
 resource/swedish/ParadigmsSwe.gf | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/resource/swedish/ParadigmsSwe.gf b/resource/swedish/ParadigmsSwe.gf
index 33b7bd9e..e49fe210 100644
--- a/resource/swedish/ParadigmsSwe.gf
+++ b/resource/swedish/ParadigmsSwe.gf
@@ -401,8 +401,12 @@ oper
     mk4N rike (rike + "t") (rike + "n") (rike + "na") ;
 
   decl5Noun : Str -> N = \lik ->
-    case Predef.dp 3 lik of {
-      "are" => mk4N lik (lik + "n") lik (init lik + "na") ; -- kikare 
+    case lik of {
+      nu + "mme" + l@("l" | "r") => 
+        mk4N lik (nu + "m" + l + "et") lik (nu + "m" + l + "en") ; 
+      vad@(?+?+?+_) + "e" + l@("l" | "r") => 
+        mk4N lik (vad + l + "et") lik (vad + l + "en") ; 
+      _ + "are" => mk4N lik (lik + "n") lik (init lik + "na") ; -- kikare 
       _ => mk4N lik (lik + "et") lik (lik + "en")
       } ;