diff options
| author | clean | 2000-04-26 15:24:04 +0000 |
|---|---|---|
| committer | clean | 2000-04-26 15:24:04 +0000 |
| commit | ad5d589437fca63c6ce0b8ddd836b2457e883fda (patch) | |
| tree | e01bdc0c4b18a8cf19b21e07c70b9ece6998e4f9 /frontend/overloading.icl | |
| parent | changes to make compiler compatible with itself (diff) | |
Merge Martin/ Sjaak & Ronny branches
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@127 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/overloading.icl')
| -rw-r--r-- | frontend/overloading.icl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/frontend/overloading.icl b/frontend/overloading.icl index fa12fe9..85bb801 100644 --- a/frontend/overloading.icl +++ b/frontend/overloading.icl @@ -675,7 +675,7 @@ where convert_reduced_context_to_expression defs contexts {rc_class, rc_inst_module, rc_inst_members, rc_red_contexts, rc_types} dictionary_args heaps # (expressions, heaps) = convertClassApplsToExpressions defs contexts rc_red_contexts heaps context_size = length expressions - | size rc_inst_members > 1 && context_size > 0 + | False // RWS test size rc_inst_members > 1 && context_size > 0 # (let_binds, let_types, rev_dicts, hp_var_heap, hp_expression_heap) = foldSt (bind_shared_dictionary (size rc_inst_members)) expressions ([], [], [], heaps.hp_var_heap, heaps.hp_expression_heap) dictionary_args = build_class_members (size rc_inst_members) rc_inst_members rc_inst_module (reverse rev_dicts) context_size dictionary_args |