From 65092e7d0581af55155d4f089129eecc20519092 Mon Sep 17 00:00:00 2001
From: martijnv
Date: Tue, 16 May 2000 13:45:20 +0000
Subject: bugfix in transform.icl (line 1306): the reference count in
 collectVariables did not recognise a dynamic.

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

(limited to 'frontend')

diff --git a/frontend/transform.icl b/frontend/transform.icl
index cd48ae0..32a3a26 100644
--- a/frontend/transform.icl
+++ b/frontend/transform.icl
@@ -1303,6 +1303,11 @@ where
 	collectVariables (MatchExpr opt_tuple cons_symb expr) free_vars cos
 		# (expr, free_vars, cos) = collectVariables expr free_vars cos
 		= (MatchExpr opt_tuple cons_symb expr, free_vars, cos)
+// MV ..
+	collectVariables (DynamicExpr dynamic_expr=:{dyn_expr}) free_vars cos
+		#! (dyn_expr, free_vars, cos) = collectVariables dyn_expr free_vars cos
+		= (DynamicExpr {dynamic_expr & dyn_expr = dyn_expr}, free_vars, cos);
+// .. MV
 	collectVariables expr free_vars cos
 		= (expr, free_vars, cos)
 
-- 
cgit v1.2.3