From f4df94954c5b1b41973f938eeedea702b7718649 Mon Sep 17 00:00:00 2001
From: johnvg
Date: Wed, 8 Jan 2003 12:18:33 +0000
Subject: remove rhs of alternative with an AP_Empty pattern, to prevent a
 compiler crash in transform when a macro uses another macro in a pattern,
 that are both defined in the same module

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

(limited to 'frontend')

diff --git a/frontend/checkFunctionBodies.icl b/frontend/checkFunctionBodies.icl
index d414b83..6f1b702 100644
--- a/frontend/checkFunctionBodies.icl
+++ b/frontend/checkFunctionBodies.icl
@@ -288,7 +288,7 @@ where
 	transform_pattern_into_cases (AP_WildCard _) fun_arg result_expr pattern_position var_store expr_heap opt_dynamics cs
 		= (result_expr, pattern_position, var_store, expr_heap, opt_dynamics, cs)	
 	transform_pattern_into_cases (AP_Empty name) fun_arg result_expr pattern_position var_store expr_heap opt_dynamics cs
-		= (result_expr, pattern_position, var_store, expr_heap, opt_dynamics, cs)
+		= (EE, pattern_position, var_store, expr_heap, opt_dynamics, cs)
 
 	transform_pattern_variable :: !FreeVar !(Optional (Bind Ident VarInfoPtr)) !Expression !*ExpressionHeap
 		-> (!Expression, !Expression, !*ExpressionHeap)
-- 
cgit v1.2.3