From de83358143c850245b892193b330a06effdb99a7 Mon Sep 17 00:00:00 2001
From: johnvg
Date: Tue, 9 Feb 2010 13:12:38 +0000
Subject: allow VI_ExpressionOrBody in instance clearVariables BoundVar

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

(limited to 'frontend/trans.icl')

diff --git a/frontend/trans.icl b/frontend/trans.icl
index 441f1ca..335e0c9 100644
--- a/frontend/trans.icl
+++ b/frontend/trans.icl
@@ -4183,13 +4183,15 @@ where
 	clearVariables bound_var=:{var_info_ptr} var_heap
 		# (var_info, var_heap) = readVarInfo var_info_ptr var_heap
 		= case var_info of
-			(VI_UsedVar _)			-> writeVarInfo var_info_ptr VI_Empty var_heap
+			VI_UsedVar _			-> writeVarInfo var_info_ptr VI_Empty var_heap
 			VI_LocalVar				-> writeVarInfo var_info_ptr VI_Empty var_heap
 			VI_Empty				-> var_heap
 			VI_Expression _			-> writeVarInfo var_info_ptr VI_Empty var_heap
 			VI_Dictionary _ _ _		-> writeVarInfo var_info_ptr VI_Empty var_heap
 			VI_Variable _ _			-> writeVarInfo var_info_ptr VI_Empty var_heap
 			VI_AccVar _ _			-> writeVarInfo var_info_ptr VI_Empty var_heap
+			VI_ExpressionOrBody _ _	_ _
+				-> writeVarInfo var_info_ptr VI_Empty var_heap
 
 instance clearVariables Expression
 where
-- 
cgit v1.2.3