From 42c46add00b47a55b8482b0f5e6d37594f53daf0 Mon Sep 17 00:00:00 2001 From: sjakie Date: Tue, 1 Aug 2000 12:13:06 +0000 Subject: forgotten te remove debugging statements git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@194 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d --- frontend/transform.icl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'frontend') diff --git a/frontend/transform.icl b/frontend/transform.icl index 24cde9f..1b865fb 100644 --- a/frontend/transform.icl +++ b/frontend/transform.icl @@ -692,7 +692,7 @@ where fun_def = { fun_def & fun_body = TransformedBody { tb_args = tb_args, tb_rhs = tb_rhs}, fun_info = { fun_info & fi_calls = fi_calls, fi_local_vars = fi_local_vars }} = ({ fun_and_macro_defs & [fun_index] = fun_def }, modules, es) - ---> ("expand_macros", fun_symb, fi_local_vars) +// ---> ("expand_macros", fun_symb, fi_local_vars) add_called_macros calls macro_defs_and_pi = foldSt add_called_macro calls macro_defs_and_pi @@ -746,7 +746,7 @@ expandMacrosInBody fi_calls {cb_args,cb_rhs} fun_defs mod_index alias_dummy modu = (new_args, new_rhs, local_vars, all_calls, fun_defs, modules, { es & es_error = cos_error, es_var_heap = cos_var_heap, es_symbol_heap = cos_symbol_heap, es_symbol_table = es_symbol_table }) - ---> ("expandMacrosInBody", (cb_args, cb_rhs, '\n'), ("merged_rhs", merged_rhs, '\n'), (new_args, local_vars, new_rhs, '\n')) +// ---> ("expandMacrosInBody", (cb_args, cb_rhs, '\n'), ("merged_rhs", merged_rhs, '\n'), (new_args, local_vars, new_rhs, '\n')) cContainsFreeVars :== True cContainsNoFreeVars :== False -- cgit v1.2.3