From 35285efe246c2486ab73630a9822f8b44e7f69a7 Mon Sep 17 00:00:00 2001
From: bringert <unknown>
Date: Wed, 9 Mar 2005 14:41:54 +0000
Subject: [PATCH] Fixed some verbs in the swedish swadesh lixcon

---
 lib/resource/swedish/SwadeshLexSwe.gf | 18 +++++++++---------
 lib/resource/swedish/VerbsSwe.gf      |  3 +++
 lib/resource/swedish/VerbsSweAbs.gf   |  3 +++
 3 files changed, 15 insertions(+), 9 deletions(-)

diff --git a/lib/resource/swedish/SwadeshLexSwe.gf b/lib/resource/swedish/SwadeshLexSwe.gf
index 05b2650d8..066433b33 100644
--- a/lib/resource/swedish/SwadeshLexSwe.gf
+++ b/lib/resource/swedish/SwadeshLexSwe.gf
@@ -177,14 +177,14 @@ concrete SwadeshLexSwe of SwadeshLex = CategoriesSwe
     worm_N = mk2N "mask" "maskar" ;
     year_N = mk2N "år" "år" ;
 
---    name_N2 = mkN2 (regN "namn") "på" ;
+--    name_N2 = mkN2 (mk2N "namn" "namn") "på" ;
     mother_N2 = mother_N2 ;
     father_N2 = father_N2 ;
 
     -- Verbs
 
     bite_V = bita_V ;
-    blow_V = regV "blåsa" ;
+    blow_V = mk2V "blåsa" "blåser" ;
 --    breathe_V = -- FIXME
     burn_V = brinna_V ; -- FIXME: bränna?
     come_V = komma_V ;
@@ -210,10 +210,10 @@ concrete SwadeshLexSwe of SwadeshLex = CategoriesSwe
     know_V = kunna_V ; -- FIXME: känna? veta?
     laugh_V = regV "skratta" ;
     lie_V = ljuga_V ;
-    live_V = mk2V "leva" "levde" ;
-    play_V = mk2V "leka" "lekte" ;
+    live_V = leva_V ;
+    play_V = mk2V "leka" "leker" ;
     pull_V = draga_V ;
-    push_V = mk2V "trycka" "tryckte" ;
+    push_V = mk2V "trycka" "trycker" ;
     rub_V = smörja_V ;
     say_V = säga_V ;
     scratch_V = regV "klia" ;
@@ -229,13 +229,13 @@ concrete SwadeshLexSwe of SwadeshLex = CategoriesSwe
     stab_V = hugga_V ;
     stand_V = stå_V ;
     suck_V = suga_V ;
-    swell_V = mk2V "svälla" "svällde" ;
+    swell_V = svälla_V ;
     swim_V = regV "simma" ;
-    think_V = mk2V "tänka" "tänkte" ;
+    think_V = mk2V "tänka" "tänker" ;
     throw_V = regV "kasta" ;
     tie_V = knyta_V ;
-    turn_V = mk2V "vända" "vände" ;
-    vomit_V = mk2V "spy" "spydde" ;
+    turn_V = vända_V ;
+    vomit_V = mk2V "spy" "spyr" ;
     walk_V = gå_V ;
     wash_V = regV "tvätta" ;
     wipe_V = regV "torka" ;
diff --git a/lib/resource/swedish/VerbsSwe.gf b/lib/resource/swedish/VerbsSwe.gf
index 0a7de33ae..71fc2bc7f 100644
--- a/lib/resource/swedish/VerbsSwe.gf
+++ b/lib/resource/swedish/VerbsSwe.gf
@@ -101,6 +101,7 @@ concrete VerbsSwe of VerbsSweAbs = CategoriesSwe ** open ParadigmsSwe in {
   kunna_V = irregV "kunna" "kunde" "kunnat" ;
   kvida_V = irregV "kvida" "kved" "kvidit" ;
   låta_V = irregV "låta" "lät" "låtit" ;
+  leva_V = irregV "leva" "levde" "levt" ;
   ljuda_V = irregV "ljuda" "ljöd" "ljudit" ;
   ljuga_V = irregV "ljuga" "ljög" "ljugit" ;
   ljuta_V = irregV "ljuta" "ljöt" "ljutit" ;
@@ -151,6 +152,7 @@ concrete VerbsSwe of VerbsSweAbs = CategoriesSwe ** open ParadigmsSwe in {
   strypa_V = irregV "strypa" "ströp" "strupit" ;
   suga_V = irregV "suga" "sög" "sugit" ;
   supa_V = irregV "supa" "söp" "supit" ;
+  svälla_V = irregV "svälla" "svällde" "svällt" ;
   svida_V = irregV "svida" "sved" "svidit" ;
   svika_V = irregV "svika" "svek" "svikit" ;
   sy_V = irregV "sy" "sydde" "sytt" ;
@@ -170,6 +172,7 @@ concrete VerbsSwe of VerbsSweAbs = CategoriesSwe ** open ParadigmsSwe in {
   utbrista_V = irregV "utbrista" "utbrast" "utbrustit" ;
   utesluta_V = irregV "utesluta" "uteslöt" "uteslutit" ;
   utskriva_V = irregV "utskriva" "utskrev" "utskrivit" ;
+  vända_V = irregV "vända" "vände" "vänt" ;
   vina_V = irregV "vina" "ven" "vinit" ;
   vinna_V = irregV "vinna" "vann" "vunnit" ;
   vrida_V = irregV "vrida" "vred" "vridit" ;
diff --git a/lib/resource/swedish/VerbsSweAbs.gf b/lib/resource/swedish/VerbsSweAbs.gf
index 0884627c2..ab54ce8c1 100644
--- a/lib/resource/swedish/VerbsSweAbs.gf
+++ b/lib/resource/swedish/VerbsSweAbs.gf
@@ -96,6 +96,7 @@ abstract VerbsSweAbs = Categories ** {
   kunna_V : V ;
   kvida_V : V ;
   låta_V : V ;
+  leva_V : V ;
   ljuda_V : V ;
   ljuga_V : V ;
   ljuta_V : V ;
@@ -146,6 +147,7 @@ abstract VerbsSweAbs = Categories ** {
   strypa_V : V ;
   suga_V : V ;
   supa_V : V ;
+  svälla_V : V ;
   svida_V : V ;
   svika_V : V ;
   sy_V : V ;
@@ -165,6 +167,7 @@ abstract VerbsSweAbs = Categories ** {
   utbrista_V : V ;
   utesluta_V : V ;
   utskriva_V : V ;
+  vända_V : V ;
   vina_V : V ;
   vinna_V : V ;
   vrida_V : V ;