From d160fbf45967544d047c896b04d2f21337b15a1f Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Tue, 1 Mar 2011 16:25:59 +0000
Subject: [PATCH] ParadigmsSwe: mkA makes adjectives ending with a/e/o
 invariant (except for genitive)

---
 lib/src/swedish/ParadigmsSwe.gf | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/lib/src/swedish/ParadigmsSwe.gf b/lib/src/swedish/ParadigmsSwe.gf
index cc5539874..f5afc8c14 100644
--- a/lib/src/swedish/ParadigmsSwe.gf
+++ b/lib/src/swedish/ParadigmsSwe.gf
@@ -464,14 +464,20 @@ oper
         se  + "dd" => se  + "tt" ; 
         pla + "tt" => pla + "tt" ; 
         gla + "d"  => gla + "tt" ;
+        _ + ("a"|"e"|"o") => fin ;
         _          => fin + "t" 
       } ;
       fina : Str = case fin of {
         unk@(? + ? + ? + _) + "e" + n@("l" | "n" | "r") => unk + n + "a" ;
+        _ + ("a"|"e"|"o") => fin ;
         _ => fin + "a"
-      }
+      } ;
+      comp : Bool = case fin of {
+        _ + ("a"|"e"|"o") => True ;
+        _ => False
+        }
     in
-    mk3A fin fint fina ;
+    lin A {s = (mk3A fin fint fina).s ; isComp = comp} ;
   irregA ung yngre yngst = 
     mk7A ung (ung + "t") (ung + "a") (ung + "a") yngre yngst (yngst+"a") ;