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