From ff29836c9b29a7bd5373c8517b282798ae44418e Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Mon, 22 Jun 2009 14:45:02 +0000
Subject: some more fixes for cleaner compilation of alltensenses

---
 next-lib/src/german/ResGer.gf | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'next-lib/src/german')

diff --git a/next-lib/src/german/ResGer.gf b/next-lib/src/german/ResGer.gf
index 5677ab106..ea87cabbd 100644
--- a/next-lib/src/german/ResGer.gf
+++ b/next-lib/src/german/ResGer.gf
@@ -143,10 +143,12 @@ resource ResGer = ParamX ** open Prelude in {
 
     vFin : Bool -> Mood -> Tense -> Agr -> VForm = \b,m,t,a ->
       case <t,m> of {
-        <Past,MIndic>    => VFin b (VImpfInd   a.n a.p) ;  --# notpresent
-        <Past,MConjunct> => VFin b (VImpfSubj  a.n a.p) ;   --# notpresent
         <Pres,MIndic>    => VFin b (VPresInd   a.n a.p) ;
         <Pres,MConjunct> => VFin b (VPresSubj  a.n a.p) 
+                                                        ;  --# notpresent
+        <Past,MIndic>    => VFin b (VImpfInd   a.n a.p) ;  --# notpresent
+        <Past,MConjunct> => VFin b (VImpfSubj  a.n a.p) ;  --# notpresent
+        _ => VInf False --# notpresent
         } ;
 
     conjAgr : Agr -> Agr -> Agr = \a,b -> {
-- 
cgit v1.2.3