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 +++---
 next-lib/src/scandinavian/NounScand.gf   | 4 ++--
 2 files changed, 5 insertions(+), 5 deletions(-)

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

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$.
diff --git a/next-lib/src/scandinavian/NounScand.gf b/next-lib/src/scandinavian/NounScand.gf
index bbb1f3a0c..4cd697eae 100644
--- a/next-lib/src/scandinavian/NounScand.gf
+++ b/next-lib/src/scandinavian/NounScand.gf
@@ -58,8 +58,8 @@ incomplete concrete NounScand of Noun =
       let 
         md : Bool -> Bool = \b -> case quant.det of {
          DDef _ => orB b num.isDet ;
-         DIndef => num.isDet ;
-         _ => False
+         DIndef => num.isDet
+         -- _ => False
          }
       in {
       s = \\b,g => quant.s ! num.n ! b ! md b ! g ++ 
-- 
cgit v1.2.3