From df474d7b2e7e378991800706c20d55bd61aa5701 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Mon, 11 Oct 2004 14:21:57 +0000
Subject: [PATCH] german paradigms

---
 resource-0.6/german/MorphoGer.gf     | 2 ++
 resource-0.6/german/ParadigmsGer.gf  | 2 +-
 resource-0.6/swedish/ParadigmsSwe.gf | 2 ++
 3 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/resource-0.6/german/MorphoGer.gf b/resource-0.6/german/MorphoGer.gf
index f3ae7424f..704c849aa 100644
--- a/resource-0.6/german/MorphoGer.gf
+++ b/resource-0.6/german/MorphoGer.gf
@@ -428,6 +428,8 @@ oper
     in
        mkVerbum legen ((adde leg) + "t") leg legte legte ("ge" + (leg + "t")) ;
 
+  regVerb = verbumWeak ;
+
 
 -- Weak verbs that don't have ge- in the participle
   verbumGratulieren : Str -> Verbum = \gratulieren ->
diff --git a/resource-0.6/german/ParadigmsGer.gf b/resource-0.6/german/ParadigmsGer.gf
index 6790ff5bd..7a97abead 100644
--- a/resource-0.6/german/ParadigmsGer.gf
+++ b/resource-0.6/german/ParadigmsGer.gf
@@ -77,7 +77,7 @@ oper
 
   nBuch   : (_,_ : Str) -> N ;    -- Buch, (Buches, Bücher) (neut)
   nMesser : Str -> N ;            -- Messer, (Messers, Messer) (neut)
-  nBein : Str -> N ;              -- Bein, (Beins, Beine) (neut)
+  nBein   : Str -> N ;            -- Bein, (Beins, Beine) (neut)
   nAuto   : Str -> N ;            -- Auto, (Autos, Autos) (neut)
 
 -- Feminine patterns. Duplicated "e" is avoided in $nFrau$.
diff --git a/resource-0.6/swedish/ParadigmsSwe.gf b/resource-0.6/swedish/ParadigmsSwe.gf
index 9c6293d73..4785483a0 100644
--- a/resource-0.6/swedish/ParadigmsSwe.gf
+++ b/resource-0.6/swedish/ParadigmsSwe.gf
@@ -25,6 +25,7 @@ resource ParadigmsSwe = open (Predef=Predef), Prelude, SyntaxSwe, ResourceSwe in
 -- To abstract over gender names, we define the following identifiers.
 
 oper
+  Gender  : Type ;
   utrum   : Gender ;
   neutrum : Gender ;
 
@@ -200,6 +201,7 @@ oper
 -- hidden from the document.
 --.
 
+  Gender = SyntaxSwe.Gender ;
   utrum = Utr ;
   neutrum = Neutr ;
   masculine = Masc ;