diff --git a/c/mapping/mlr_dsl_cst.h b/c/mapping/mlr_dsl_cst.h index 3b0083d87..c712ffd8f 100644 --- a/c/mapping/mlr_dsl_cst.h +++ b/c/mapping/mlr_dsl_cst.h @@ -283,11 +283,6 @@ void mlr_dsl_cst_handle_top_level_statement_block( variables_t* pvars, cst_outputs_t* pcst_outputs); -void mlr_dsl_cst_handle_statement_block( // xxx rm - sllv_t* pcst_block, // block bodies for begin, main, end; cond, if, for, while - variables_t* pvars, - cst_outputs_t* pcst_outputs); - // Recursive entry point: block bodies for begin, main, end; cond, if, for, while. void mlr_dsl_cst_handle_statement_list( // xxx rename to handle statement block sllv_t* pcst_statements, diff --git a/c/mapping/mlr_dsl_cst_statements.c b/c/mapping/mlr_dsl_cst_statements.c index 34051496c..60224a3e5 100644 --- a/c/mapping/mlr_dsl_cst_statements.c +++ b/c/mapping/mlr_dsl_cst_statements.c @@ -2068,17 +2068,8 @@ void mlr_dsl_cst_handle_top_level_statement_block( } // ================================================================ -// xxx copy to ..._for_filter -// xxx rename to ..._for_put -void mlr_dsl_cst_handle_statement_block( - sllv_t* pcst_block, - variables_t* pvars, - cst_outputs_t* pcst_outputs) -{ - mlr_dsl_cst_handle_statement_list(pcst_block, pvars, pcst_outputs); - bind_stack_clear(pvars->pbind_stack); // clear the baseframe -} +// xxx whack // This is for statement lists not recursively contained within a loop body -- including the // main/begin/end statements. Since there is no containing loop body, there is no need to check