From f5770cc572d739635be0dbd20f24edaca9a4e5f4 Mon Sep 17 00:00:00 2001
From: ronny
Date: Fri, 11 May 2001 10:01:14 +0000
Subject: fixed bug in convertCases Let (introduced in previous commit)

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@427 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 b7b17c4..7972af1 100644
--- a/frontend/convertcases.icl
+++ b/frontend/convertcases.icl
@@ -66,7 +66,7 @@ where
 		  cs = { cs & cs_expr_heap = cs_expr_heap }
 		= case let_info of
 			EI_LetType let_type
-				# bound_vars = addLetVars (let_strict_binds ++ let_lazy_binds) let_type bound_vars
+				# ci = {ci & ci_bound_vars=addLetVars (let_strict_binds ++ let_lazy_binds) let_type ci.ci_bound_vars}
 				# (let_strict_binds, cs) = convertCases ci let_strict_binds cs
 				# (let_lazy_binds, cs) = convertCases ci let_lazy_binds cs
 				# (let_expr, cs) = convertCases ci let_expr cs
-- 
cgit v1.2.3