From ad5d589437fca63c6ce0b8ddd836b2457e883fda Mon Sep 17 00:00:00 2001 From: clean Date: Wed, 26 Apr 2000 15:24:04 +0000 Subject: Merge Martin/ Sjaak & Ronny branches git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@127 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d --- frontend/overloading.icl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'frontend/overloading.icl') 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 -- cgit v1.2.3