From 235661800ae9b0d5748707c8cc4900a7a8aa8559 Mon Sep 17 00:00:00 2001
From: alimarin
Date: Mon, 3 Jun 2002 12:17:55 +0000
Subject: removed trace

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1080 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 frontend/generics1.icl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'frontend')

diff --git a/frontend/generics1.icl b/frontend/generics1.icl
index ac7e3d1..751d388 100644
--- a/frontend/generics1.icl
+++ b/frontend/generics1.icl
@@ -1282,7 +1282,7 @@ buildMemberType gen_def=:{gen_name,gen_pos,gen_type,gen_vars} kind class_var gs=
 	# {th_vars, th_attrs} = th
 	#! gs = {gs & gs_avarh = th_attrs, gs_tvarh = th_vars, gs_error = gs_error }
 	= (member_st, gs)
-		---> ("buildMemberType returns", gen_name, kind, member_st)
+		//---> ("buildMemberType returns", gen_name, kind, member_st)
 where
 	add_bimap_contexts 
 			{gen_type=gen_type=:{st_vars, st_context}, gen_vars, gen_info_ptr} 
@@ -1897,7 +1897,7 @@ buildGenericCaseBody main_module_index gc=:{gc_name, gc_pos, gc_generic, gc_type
 	// get all the data we need
 	#! (gen_def, modules) 	
 		= modules ! [gc_generic.gi_module].com_generic_defs.[gc_generic.gi_index] 		
-			---> ("buildGenericCaseBody for", gc_name, type_name, st)
+			//---> ("buildGenericCaseBody for", gc_name, type_name, st)
 	#! (td_info=:{tdi_gen_rep}, td_infos)
 		= td_infos ! [type_index.glob_module, type_index.glob_object]
 	# (gen_type_rep=:{gtr_iso, gtr_type}) = case tdi_gen_rep of
@@ -1927,7 +1927,7 @@ buildGenericCaseBody main_module_index gc=:{gc_name, gc_pos, gc_generic, gc_type
 		= build_body_expr adaptor_expr specialized_expr original_arg_exprs
 	
 	= (TransformedBody {tb_args=arg_vars, tb_rhs=body_expr}, td_infos, modules, heaps, error)	
-		---> ("buildGenericCaseBody", body_expr)
+		//---> ("buildGenericCaseBody", body_expr)
 where
 
 	build_generic_info_arg heaps=:{hp_var_heap}
@@ -2233,7 +2233,7 @@ specializeGeneric gen_index type spec_env gen_name gen_pos main_module_index pre
 
 	#! heaps = clear_tvs spec_env heaps
 	= (expr, (td_infos, heaps, error))
-		---> ("specializeGeneric", expr)
+		//---> ("specializeGeneric", expr)
 where
 	set_tvs spec_env heaps=:{hp_type_heaps=hp_type_heaps=:{th_vars}}
 		#! th_vars = foldSt write_tv spec_env th_vars
-- 
cgit v1.2.3