From 5fad96c357ec1eb7c3ac92f906ec2e6ef010f4d5 Mon Sep 17 00:00:00 2001
From: ronny
Date: Fri, 20 Sep 2002 12:47:16 +0000
Subject: fixed bug in mergecases for dynamics (result from a failed
 experiment)

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

diff --git a/frontend/mergecases.icl b/frontend/mergecases.icl
index 193a933..f99dc59 100644
--- a/frontend/mergecases.icl
+++ b/frontend/mergecases.icl
@@ -94,8 +94,7 @@ where
 						No
 							-> (No, var_heap, symbol_heap) 
 				DynamicPatterns [dynamic_pattern]
-/*
-	Don't merge dynamic cases, as a work around for the following case
+/*	Don't merge dynamic cases, as a work around for the following case
 		apply :: Dynamic Dynamic -> Int
 		apply _ (_ :: Int)
 			=	1
@@ -120,10 +119,10 @@ where
 							-> (Yes cees, var_heap, symbol_heap)
 
 						No
-
+ */
 							-> (No, var_heap, symbol_heap)
 				_
-*/					-> (No, var_heap, symbol_heap)
+					-> (No, var_heap, symbol_heap)
 		| otherwise
 			= (No, var_heap, symbol_heap)
 	split_case split_var_info_ptr (Let lad=:{let_expr,let_strict_binds,let_lazy_binds}) var_heap symbol_heap
-- 
cgit v1.2.3