From 8a6369313f9235338d4077baa3847dc36253c3f9 Mon Sep 17 00:00:00 2001
From: bringert <unknown>
Date: Wed, 9 Mar 2005 19:34:27 +0000
Subject: [PATCH] Fixed a number of error in swedish verbs, swadesh and
 stoneage grammars found by random generation and just talking to the system.

---
 resource/english/SwadeshLexEng.gf | 2 +-
 resource/swedish/SwadeshLexSwe.gf | 4 ++--
 resource/swedish/VerbsSwe.gf      | 5 +++--
 resource/swedish/VerbsSweAbs.gf   | 1 +
 4 files changed, 7 insertions(+), 5 deletions(-)

diff --git a/resource/english/SwadeshLexEng.gf b/resource/english/SwadeshLexEng.gf
index 6e5069f11..474a97ad0 100644
--- a/resource/english/SwadeshLexEng.gf
+++ b/resource/english/SwadeshLexEng.gf
@@ -121,7 +121,7 @@ concrete SwadeshLexEng of SwadeshLex = CategoriesEng
     forest_N = regN "forest" ;
     fruit_N = fruit_N ;
     grass_N = regN "grass" ;
-    guts_N = regN "guts" ; -- FIXME: plural only?
+    guts_N = regN "gut" ; -- FIXME: no singular
     hair_N = regN "hair" ;
     hand_N = regN "hand" ;
     head_N = regN "head" ;
diff --git a/resource/swedish/SwadeshLexSwe.gf b/resource/swedish/SwadeshLexSwe.gf
index 00629b60e..92f5a1abf 100644
--- a/resource/swedish/SwadeshLexSwe.gf
+++ b/resource/swedish/SwadeshLexSwe.gf
@@ -110,7 +110,7 @@ concrete SwadeshLexSwe of SwadeshLex = CategoriesSwe
     earth_N = mk2N "jord" "jordar" ;
     egg_N = mk2N "ägg" "ägg" ;
     eye_N = mkN "öga" "ögat" "ögon" "ögonen" ;
-    fat_N = mk2N "fett" "fetter" ;
+    fat_N = mk2N "fett" "fett" ;
     father_N = mascN (mkN "far" "fadern" "fäder" "fäderna") ; 
 --    father_N = UseN2 father_N2 ;
     feather_N = mk2N "fjäder" "fjädrar" ;
@@ -127,7 +127,7 @@ concrete SwadeshLexSwe of SwadeshLex = CategoriesSwe
     hair_N = mk2N "hår" "hår" ;
     hand_N = mk2N "hand" "händer" ;
     head_N = mkN "huvud" "huvudet" "huvuden" "huvudena" ;
-    heart_N = mk2N "hjärta" "hjärtan" ; 
+    heart_N = mkN "hjärta" "hjärtat" "hjärtan" "hjärtana" ;
     horn_N = mk2N "horn" "horn" ;
     husband_N = mascN (mk2N "make" "makar") ;
     ice_N = mk2N "is" "isar" ;
diff --git a/resource/swedish/VerbsSwe.gf b/resource/swedish/VerbsSwe.gf
index 71fc2bc7f..b8eddcbe9 100644
--- a/resource/swedish/VerbsSwe.gf
+++ b/resource/swedish/VerbsSwe.gf
@@ -92,13 +92,14 @@ concrete VerbsSwe of VerbsSweAbs = CategoriesSwe ** open ParadigmsSwe in {
   innesluta_V = irregV "innesluta" "inneslöt" "inneslutit" ;
   inskriva_V = irregV "inskriva" "inskrev" "inskrivit" ;
   intaga_V = irregV "intaga" "intog" "intagit" ;
+  känna_V = irregV "känna" "kände" "känt" ;
   kliva_V = irregV "kliva" "klev" "klivit" ;
   klyva_V = irregV "klyva" "klöv" "kluvit" ;
   knipa_V = irregV "knipa" "knep" "knipit" ;
   knyta_V = irregV "knyta" "knöt" "knutit" ;
   komma_V = irregV "komma" "kom" "kommit" ;
   krypa_V = irregV "krypa" "kröp" "krupit" ;
-  kunna_V = irregV "kunna" "kunde" "kunnat" ;
+  kunna_V = mkV "kunna" "kan" "kan" "kunde" "kunnat" "känd" ;
   kvida_V = irregV "kvida" "kved" "kvidit" ;
   låta_V = irregV "låta" "lät" "låtit" ;
   leva_V = irregV "leva" "levde" "levt" ;
@@ -123,7 +124,7 @@ concrete VerbsSwe of VerbsSweAbs = CategoriesSwe ** open ParadigmsSwe in {
   sjuda_V = irregV "sjuda" "sjöd" "sjudit" ;
   sjunga_V = irregV "sjunga" "sjöng" "sjungit" ;
   sjunka_V = irregV "sjunka" "sjönk" "sjunkit" ;
-  skära_V = irregV "skära" "skar" "skurit" ;
+  skära_V = mkV "skära" "skär" "skär" "skar" "skurit" "skuren" ;
   skina_V = irregV "skina" "sken" "skinit" ;
   skita_V = irregV "skita" "sket" "skitit" ;
   skjuta_V = irregV "skjuta" "skjöt" "skjutit" ;
diff --git a/resource/swedish/VerbsSweAbs.gf b/resource/swedish/VerbsSweAbs.gf
index ab54ce8c1..59f6269b2 100644
--- a/resource/swedish/VerbsSweAbs.gf
+++ b/resource/swedish/VerbsSweAbs.gf
@@ -87,6 +87,7 @@ abstract VerbsSweAbs = Categories ** {
   innesluta_V : V ;
   inskriva_V : V ;
   intaga_V : V ;
+  känna_V : V ;
   kliva_V : V ;
   klyva_V : V ;
   knipa_V : V ;