From b057553effcafba80d40afb6e0e553f1ebee7c2b Mon Sep 17 00:00:00 2001
From: sjakie
Date: Tue, 5 Oct 1999 14:57:35 +0000
Subject: bugfix: record selections in matchnodes

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

(limited to 'frontend')

diff --git a/frontend/check.icl b/frontend/check.icl
index 06d4f34..69dea92 100644
--- a/frontend/check.icl
+++ b/frontend/check.icl
@@ -1680,7 +1680,7 @@ where
 		# free_var = { fv_name = bind_src, fv_info_ptr = bind_dst, fv_def_level = NotALevel, fv_count = 0 }
 		  (var_expr_ptr, expr_heap) = newPtr EI_Empty expr_heap
 		  bound_var = { var_name = bind_src, var_info_ptr = bind_dst, var_expr_ptr = var_expr_ptr }
-		= (Var bound_var, [{bind_src = src_expr, bind_dst = free_var}], var_heap, expr_heap)
+		= (Var bound_var, [{bind_src = src_expr, bind_dst = free_var}], var_heap <:= (bind_dst, VI_Empty), expr_heap)
 	bind_opt_var No src_expr var_heap expr_heap
 		= (src_expr, [], var_heap, expr_heap)
 		
-- 
cgit v1.2.3