From cda8c58053a3c3e57b6aa95028a4241ec4e00f8c Mon Sep 17 00:00:00 2001
From: johnvg
Date: Fri, 4 Nov 2011 16:15:17 +0000
Subject: remove differences in layout between the compiler and the iTask
 compiler

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1989 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 frontend/classify.icl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/frontend/classify.icl b/frontend/classify.icl
index 25b8837..e14086a 100644
--- a/frontend/classify.icl
+++ b/frontend/classify.icl
@@ -647,6 +647,8 @@ instance consumerRequirements Case where
 			= True
 		is_sorted [h1:t=:[h2:_]]
 			= h1 < h2 && is_sorted t
+		is_sorted []
+			= True
 
 		sort constr_indices unsafe_bits
 			= sortBy smaller (zip3 constr_indices [0..] unsafe_bits)
@@ -714,7 +716,7 @@ where
 			-> True
 		_ -> False //---> ("not ok_pattern_type",patterns)
 	pattern_constructors = case patterns of
-		(AlgebraicPatterns {glob_object, glob_module} algebraic_patterns)
+		(AlgebraicPatterns _ algebraic_patterns)
 			-> [ glob_object.ds_index \\ {ap_symbol={glob_object}}<-algebraic_patterns] //---> ("AlgebraicPatterns")
 		(BasicPatterns BT_Bool basic_patterns)
 			-> [ if bool 1 0 \\ {bp_value=BVB bool}<-basic_patterns ] //---> ("BasicPatterns Bool")
@@ -1367,7 +1369,7 @@ where
 		UStrict	-> CUnusedStrict
 		ULazy	-> CUnusedLazy
 		UMixed	-> CUnusedStrict
-	
+
 	collect_deps :: !UnusedStatus ![!RefCount!] -> UnusedStatus
 	collect_deps s [|]
 		= s
-- 
cgit v1.2.3