diff options
| author | clean | 2000-04-26 15:29:01 +0000 |
|---|---|---|
| committer | clean | 2000-04-26 15:29:01 +0000 |
| commit | 616a3560f795018ede84223b534feb3702ffedc0 (patch) | |
| tree | c7beb309986bbf1d946588ab3e8047d61a0c2df4 /frontend/overloading.icl | |
| parent | Merge Martin/ Sjaak & Ronny branches (diff) | |
fixed convert_reduced_context_to_expression
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@128 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 85bb801..fa12fe9 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 - | False // RWS test size rc_inst_members > 1 && context_size > 0 + | 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 |