From 52676a511fbe6986defe25332eee8cc9548d1c6a Mon Sep 17 00:00:00 2001
From: ronny
Date: Tue, 12 Nov 2002 21:14:52 +0000
Subject: mark boolean case as not explicit to prevent introducing a function

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

(limited to 'frontend')

diff --git a/frontend/transform.icl b/frontend/transform.icl
index 3880b9d..1c07f77 100644
--- a/frontend/transform.icl
+++ b/frontend/transform.icl
@@ -1818,7 +1818,7 @@ where
 				# (new_info_ptr,symbol_heap) = newPtr (EI_CaseType case_type) cos.cos_symbol_heap
 				# kase = Case {	case_expr=e1, case_guards=BasicPatterns BT_Bool [{bp_value=BVB True,bp_expr=e2,bp_position=NoPos}],
 								case_default=Yes e3, case_ident=No, case_info_ptr=new_info_ptr, case_default_pos = NoPos,
-								case_explicit = True }
+								case_explicit = False }
 				= (kase,{cos & cos_symbol_heap=symbol_heap});
 			
 			two_args [_,_]
-- 
cgit v1.2.3