diff options
| author | johnvg | 2005-10-28 10:15:49 +0000 |
|---|---|---|
| committer | johnvg | 2005-10-28 10:15:49 +0000 |
| commit | 33c56ca18cd357b1d8b10f26c3c60c5d8f7f2518 (patch) | |
| tree | 148a4d6360e028e6e238448bc1ffbcdf0f2fe7ee | |
| parent | add -fusion flag (diff) | |
remove output for debugging
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1553 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
| -rw-r--r-- | frontend/trans.icl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/frontend/trans.icl b/frontend/trans.icl index a3cb10c..e56c8e5 100644 --- a/frontend/trans.icl +++ b/frontend/trans.icl @@ -2457,7 +2457,8 @@ where , let_expr = expr , let_info_ptr = new_info_ptr , let_expr_position = NoPos - },ti) ---> "added strict_let_binds" + },ti) // ---> "added strict_let_binds" + transform_trivial_function :: !.App ![.Expression] ![.Expression] !.ReadOnlyTI !*TransformInfo -> *(!Expression,!*TransformInfo) transform_trivial_function app=:{app_symb} app_args extra_args ro ti # (fun_def,ti_fun_defs,ti_fun_heap) = get_fun_def app_symb.symb_kind ro.ro_main_dcl_module_n ti.ti_fun_defs ti.ti_fun_heap |