From 3f07959f471ed5260556e6770e433fd53aa7a99f Mon Sep 17 00:00:00 2001
From: johnvg
Date: Mon, 8 Feb 2010 15:08:10 +0000
Subject: repair the previous modification

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

(limited to 'frontend')

diff --git a/frontend/trans.icl b/frontend/trans.icl
index 79ebe83..f4c3240 100644
--- a/frontend/trans.icl
+++ b/frontend/trans.icl
@@ -1511,7 +1511,7 @@ generateFunction app_symb fd=:{fun_body = TransformedBody {tb_args,tb_rhs},fun_i
 	  			, cs_cleanup_info			= ti_cleanup_info
 	  			}
 //	| False ---> ("before unfold:", tb_rhs) = undef
-	# (tb_rhs, {cs_var_heap,cs_symbol_heap,cs_opt_type_heaps=Yes ti_type_heaps, cs_cleanup_info})
+	# (tb_rhs, {cs_var_heap=var_heap,cs_symbol_heap,cs_opt_type_heaps=Yes ti_type_heaps, cs_cleanup_info})
 	  		= copy tb_rhs {ci_handle_aci_free_vars	= RemoveAciFreeVars} cs
 //	| False ---> ("unfolded:", tb_rhs) = undef
 	# var_heap						= fold2St store_arg_type_info new_fun_args fresh_arg_types var_heap
-- 
cgit v1.2.3