From 4919ffd13d03d306663e058517177c55a7850d7c Mon Sep 17 00:00:00 2001
From: ronny
Date: Thu, 7 Nov 2002 15:33:49 +0000
Subject: revert bug fix in convert cases in anticipation of a proper fix

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1269 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 frontend/convertcases.icl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'frontend')

diff --git a/frontend/convertcases.icl b/frontend/convertcases.icl
index e55c7f0..a9c2813 100644
--- a/frontend/convertcases.icl
+++ b/frontend/convertcases.icl
@@ -1288,7 +1288,7 @@ instance convertRootCases Expression where
 			_
 				-> case case_expr of
 					(Var var)
-						| not case_explicit && (case ci.ci_case_level of
+						| not case_explicit || (case ci.ci_case_level of
 													CaseLevelAfterGuardRoot -> False 
 													_ -> True)
 							# (varInfo, cs_var_heap) = readPtr var.var_info_ptr cs.cs_var_heap
-- 
cgit v1.2.3