From 7103cba5f7d85823eaefe1f44e7c693656dcb8b7 Mon Sep 17 00:00:00 2001
From: diederik
Date: Thu, 25 Jul 2002 14:38:44 +0000
Subject: add collectVariable instance for Dictionaries for consumer reanalysis

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

(limited to 'frontend')

diff --git a/frontend/transform.icl b/frontend/transform.icl
index c0b09bc..b1b53b2 100644
--- a/frontend/transform.icl
+++ b/frontend/transform.icl
@@ -1992,6 +1992,9 @@ where
 	collectVariables (ArraySelection array_select expr_ptr index_expr) free_vars dynamics cos
 		# (index_expr, free_vars, dynamics, cos) = collectVariables index_expr free_vars dynamics cos
 		= (ArraySelection array_select expr_ptr index_expr, free_vars, dynamics, cos)
+	collectVariables (DictionarySelection dictionary_select selectors expr_ptr index_expr) free_vars dynamics cos
+		# ((index_expr,selectors), free_vars, dynamics, cos) = collectVariables (index_expr,selectors) free_vars dynamics cos
+		= (DictionarySelection dictionary_select selectors expr_ptr index_expr, free_vars, dynamics, cos)
 	collectVariables record_selection free_vars dynamics cos
 		= (record_selection, free_vars, dynamics, cos)
 
-- 
cgit v1.2.3