From 3231d8490c565ac1089b9cdb45fbb61713cb2e47 Mon Sep 17 00:00:00 2001 From: johnvg Date: Wed, 26 Oct 2005 10:19:20 +0000 Subject: remove output for debugging git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1550 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d --- frontend/trans.icl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'frontend') diff --git a/frontend/trans.icl b/frontend/trans.icl index 465c65f..b2be161 100644 --- a/frontend/trans.icl +++ b/frontend/trans.icl @@ -3034,10 +3034,10 @@ determineProducers is_applied_to_macro_fun consumer_is_curried ok_non_rec_consum && isStrictVar arg ) False # producers = { producers & [prod_index] = PR_Unused } - = (producers, args, [], ti) ---> ("UnusedMixed",arg,fun_type) + = (producers, args, [], ti) // ---> ("UnusedMixed",arg,fun_type) | SwitchUnusedFusion (ro.ro_transform_fusion && cons_arg == CUnusedLazy) False # producers = { producers & [prod_index] = PR_Unused } - = (producers, args, [], ti) ---> ("UnusedLazy",arg,fun_type) + = (producers, args, [], ti) // ---> ("UnusedLazy",arg,fun_type) #! (producers, new_args, lb, ti) = determineProducers is_applied_to_macro_fun consumer_is_curried ok_non_rec_consumer fun_type linear_bits cons_args args (inc prod_index) producers ro ti = (producers, [arg : new_args], lb, ti) where -- cgit v1.2.3