From 418c4d534cdf9a9b2c385395e0f03f6d21160ff7 Mon Sep 17 00:00:00 2001
From: johnvg
Date: Wed, 29 Apr 2009 11:00:36 +0000
Subject: bug fix: initialize atype_vars1 as intended

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

(limited to 'frontend/comparedefimp.icl')

diff --git a/frontend/comparedefimp.icl b/frontend/comparedefimp.icl
index b4729b2..a7a2ccf 100644
--- a/frontend/comparedefimp.icl
+++ b/frontend/comparedefimp.icl
@@ -912,9 +912,9 @@ instance t_corresponds SelectorDef where
 		&&& equal dclDef.sd_field_nr iclDef.sd_field_nr
 
 init_atype_vars atype_vars1 atype_vars2 tc_state=:{tc_type_vars=tc_type_vars=:{hwn_heap}}
-	# type_heap = foldSt init_type_var atype_vars1 hwn_heap
-	# type_heap = foldSt init_type_var atype_vars2 hwn_heap
-	= {tc_state & tc_type_vars = {tc_type_vars & hwn_heap = type_heap}}
+	# hwn_heap = foldSt init_type_var atype_vars1 hwn_heap
+	# hwn_heap = foldSt init_type_var atype_vars2 hwn_heap
+	= {tc_state & tc_type_vars = {tc_type_vars & hwn_heap = hwn_heap}}
   where
 	init_type_var {atv_variable} type_heap = writePtr atv_variable.tv_info_ptr TVI_Empty type_heap
 
-- 
cgit v1.2.3