From 616a3560f795018ede84223b534feb3702ffedc0 Mon Sep 17 00:00:00 2001
From: clean
Date: Wed, 26 Apr 2000 15:29:01 +0000
Subject: fixed convert_reduced_context_to_expression

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@128 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 frontend/overloading.icl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'frontend')

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
-- 
cgit v1.2.3