diff options
| author | ronny | 2001-07-12 14:49:43 +0000 |
|---|---|---|
| committer | ronny | 2001-07-12 14:49:43 +0000 |
| commit | ccfd1c80a9c059ec05389a10e5eccb9dfc0c99b9 (patch) | |
| tree | d8b4beebff9a9cde0de71054f35abe46fc551fa1 | |
| parent | removed unused varHeap parameters (varHeap is in BackEndState) (diff) | |
made compilable with Clean 2.0 by introducing a typed local function
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@541 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
| -rw-r--r-- | frontend/frontend.icl | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/frontend/frontend.icl b/frontend/frontend.icl index 914f4e9..f94a344 100644 --- a/frontend/frontend.icl +++ b/frontend/frontend.icl @@ -131,8 +131,12 @@ frontEndInterface upToPhase mod_ident search_paths dcl_modules functions_and_mac fun_defs ti_common_defs dcl_mods type_heaps.th_vars td_infos error_admin type_heaps = { type_heaps & th_vars = th_vars } # heaps = { heaps & hp_type_heaps = type_heaps } - # ti_common_defs = {dcl_common \\ {dcl_common} <-: dcl_mods } - # (saved_main_dcl_common, ti_common_defs) = replace ti_common_defs main_dcl_module_n icl_common + # (saved_main_dcl_common, ti_common_defs) = replace (dcl_common_defs dcl_mods) main_dcl_module_n icl_common + with + dcl_common_defs :: .{#DclModule} -> .{#CommonDefs} // needed for Clean 2.0 to disambiguate overloading + dcl_common_defs dcl_mods + = {dcl_common \\ {dcl_common} <-: dcl_mods } + #! (components, ti_common_defs, fun_defs, generic_range, td_infos, heaps, hash_table, predef_symbols, dcl_mods, optional_dcl_icl_conversions, error_admin) = SwitchGenerics @@ -141,10 +145,7 @@ frontEndInterface upToPhase mod_ident search_paths dcl_modules functions_and_mac heaps hash_table predef_symbols dcl_mods optional_dcl_icl_conversions error_admin) (components, ti_common_defs, fun_defs, {ir_to=0,ir_from=0}, td_infos, heaps, hash_table, predef_symbols, dcl_mods, optional_dcl_icl_conversions, error_admin) - # (icl_common, ti_common_defs) = replace copied_ti_common_defs main_dcl_module_n saved_main_dcl_common - with - copied_ti_common_defs :: !.{#CommonDefs} // needed for Clean 2.0 to disambiguate overloading of replace - copied_ti_common_defs = {x \\ x <-: ti_common_defs} + # (icl_common, ti_common_defs) = replace ti_common_defs main_dcl_module_n saved_main_dcl_common # dcl_mods = { {dcl_mod & dcl_common = common} \\ dcl_mod <-: dcl_mods & common <-: ti_common_defs } # error = error_admin.ea_file |