diff options
| author | johnvg | 2001-10-18 12:24:21 +0000 |
|---|---|---|
| committer | johnvg | 2001-10-18 12:24:21 +0000 |
| commit | 0e568790a6b7384e424b0b3cb3e71e721304ba0f (patch) | |
| tree | d314ba5139605bbf8d3829916f0c1b27ef2d6138 /frontend/checksupport.icl | |
| parent | make source code clean 2.0 compatible (diff) | |
make source code clean 2.0 compatible
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@866 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/checksupport.icl')
| -rw-r--r-- | frontend/checksupport.icl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/frontend/checksupport.icl b/frontend/checksupport.icl index d63ade8..79d4669 100644 --- a/frontend/checksupport.icl +++ b/frontend/checksupport.icl @@ -519,9 +519,9 @@ where remove_macro_defs_from_symbol_table level from_index to_index defs symbol_table | from_index == to_index = (defs, symbol_table) - #! def = defs.[module_index,from_index] - id_info = (toIdent def).id_info - entry = sreadPtr id_info symbol_table + # (def,defs) = defs![module_index,from_index] + id_info = (toIdent def).id_info + (entry,symbol_table) = readPtr id_info symbol_table | level == entry.ste_def_level = remove_macro_defs_from_symbol_table level (inc from_index) to_index defs (symbol_table <:= (id_info, entry.ste_previous)) = remove_macro_defs_from_symbol_table level (inc from_index) to_index defs symbol_table @@ -533,8 +533,8 @@ where remove_fun_defs_from_symbol_table level from_index to_index defs symbol_table | from_index == to_index = (defs, symbol_table) - #! def = defs.[from_index] - id_info = (toIdent def).id_info + # (def,defs) = defs![from_index] + id_info = (toIdent def).id_info # (entry, symbol_table) = readPtr id_info symbol_table | level == entry.ste_def_level = remove_fun_defs_from_symbol_table level (inc from_index) to_index defs (symbol_table <:= (id_info, entry.ste_previous)) |