From f8fdaa7accef4c6935e5ecdf9ef292b1f7b2901b Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Mon, 22 Jun 2009 14:30:55 +0000
Subject: fixed warnings in present compilation of resource, esp. unreached
 patterns

---
 next-lib/src/scandinavian/CommonScand.gf | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'next-lib/src/scandinavian/CommonScand.gf')

diff --git a/next-lib/src/scandinavian/CommonScand.gf b/next-lib/src/scandinavian/CommonScand.gf
index 9aa52f74c..d56d7ee1d 100644
--- a/next-lib/src/scandinavian/CommonScand.gf
+++ b/next-lib/src/scandinavian/CommonScand.gf
@@ -101,9 +101,9 @@ oper
 -- Used in $DiffScand.predV$.
 
   vFin : Tense -> Voice -> VForm = \t,v -> case t of {
-    Pres => VF (VPres v) ;
-    Past => VF (VPret v) ;  --# notpresent
-    _ => VI (VInfin v) --- not to be used?
+    Pres => VF (VPres v) 
+                       ;   --# notpresent
+    Past => VF (VPret v)   --# notpresent
     } ;
     
 -- Used in $ConjunctionScand$.
-- 
cgit v1.2.3