diff options
| author | johnvg | 2005-10-26 10:19:20 +0000 |
|---|---|---|
| committer | johnvg | 2005-10-26 10:19:20 +0000 |
| commit | 3231d8490c565ac1089b9cdb45fbb61713cb2e47 (patch) | |
| tree | 2523a2477581373a8cf4b78a2153d9ac12da99ae | |
| parent | print types in error messages: 'derived type conflicts with specified type' and (diff) | |
remove output for debugging
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1550 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
| -rw-r--r-- | frontend/trans.icl | 4 |
1 files changed, 2 insertions, 2 deletions
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 |