diff options
| author | johnvg | 2002-07-17 13:14:04 +0000 |
|---|---|---|
| committer | johnvg | 2002-07-17 13:14:04 +0000 |
| commit | a0ef8378f23bf034ae18b060a58dc4033e6c0bbd (patch) | |
| tree | 09508a4b6f9ec20564ef063a615d95e73d926744 | |
| parent | remove (diff) | |
remove some dead code in comments
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1156 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
| -rw-r--r-- | frontend/convertimportedtypes.icl | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/frontend/convertimportedtypes.icl b/frontend/convertimportedtypes.icl index a740d08..96e2d6a 100644 --- a/frontend/convertimportedtypes.icl +++ b/frontend/convertimportedtypes.icl @@ -70,14 +70,13 @@ convertImportedTypeSpecifications main_dcl_module_n dcl_mods dcl_functions commo | isEmpty abstract_type_indexes -> convert_imported_type_specs dcl_functions common_defs imported_conses imported_functions imported_types type_heaps var_heap #!(icl_type_defs, imported_types) = imported_types![main_dcl_module_n] - type_defs = foldSt (insert_abstract_type /*conversion_table.[cTypeDefs]*/) abstract_type_indexes { icl_type_def \\ icl_type_def <-: icl_type_defs } + type_defs = foldSt insert_abstract_type abstract_type_indexes { icl_type_def \\ icl_type_def <-: icl_type_defs } (imported_types, type_heaps, var_heap) = convert_imported_type_specs dcl_functions common_defs imported_conses imported_functions { imported_types & [main_dcl_module_n] = type_defs } type_heaps var_heap -> ({ imported_types & [main_dcl_module_n] = icl_type_defs }, type_heaps, var_heap) No -> convert_imported_type_specs dcl_functions common_defs imported_conses imported_functions imported_types type_heaps var_heap - where determine_abstract_type dcl_type_defs type_index abstract_type_indexes @@ -88,8 +87,7 @@ where _ -> abstract_type_indexes - insert_abstract_type /*conversion_table*/ type_index type_defs -// # icl_index = conversion_table.[type_index] + insert_abstract_type type_index type_defs # icl_index=type_index # (type_def, type_defs) = type_defs![icl_index] = { type_defs & [icl_index] = { type_def & td_rhs = AbstractType cAllBitsClear }} |