From cbec29962e58f17ebe4f066e8268eac58dc8a5f7 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Sat, 8 Nov 2008 09:38:32 +0000
Subject: corrections in Attempto grammars

---
 next-lib/src/swedish/ParadigmsSwe.gf  | 5 +++--
 next-lib/src/swedish/StructuralSwe.gf | 2 +-
 2 files changed, 4 insertions(+), 3 deletions(-)

(limited to 'next-lib/src')

diff --git a/next-lib/src/swedish/ParadigmsSwe.gf b/next-lib/src/swedish/ParadigmsSwe.gf
index e49fe2105..36d262c97 100644
--- a/next-lib/src/swedish/ParadigmsSwe.gf
+++ b/next-lib/src/swedish/ParadigmsSwe.gf
@@ -331,8 +331,9 @@ oper
     } ;
 
   regGenN : Str -> Gender -> N = \bil, g -> case g of {
-    Utr => case last bil of {
-      "a" => decl1Noun bil ;
+    Utr => case bil of {
+      _ + "are" => decl5Noun bil ;
+      _ + "a" => decl1Noun bil ;
       _   => decl2Noun bil
       } ;
     Neutr => case last bil of {
diff --git a/next-lib/src/swedish/StructuralSwe.gf b/next-lib/src/swedish/StructuralSwe.gf
index 97f17402f..b257b850a 100644
--- a/next-lib/src/swedish/StructuralSwe.gf
+++ b/next-lib/src/swedish/StructuralSwe.gf
@@ -132,7 +132,7 @@ lin
        Sg => \\_,_ => genderForms "ingen" "inget" ; 
        Pl => \\_,_,_ => "inga"
        } ;
-     det = DDef Def
+     det = DIndef
     } ;
 
   if_then_Conj = {s1 = "om" ; s2 = "så" ; n = singular} ;
-- 
cgit v1.2.3