From 22eb5fc187f16d79704720d08cc3a7fee811f74e Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Fri, 16 Sep 2011 18:00:05 -0400 Subject: [PATCH] flagging some things as no-ops --- compiler/optimize-il.rkt | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/compiler/optimize-il.rkt b/compiler/optimize-il.rkt index 4c8f921..379b915 100644 --- a/compiler/optimize-il.rkt +++ b/compiler/optimize-il.rkt @@ -180,10 +180,14 @@ (loop (rest stmts)))] [(DebugPrint? a-stmt) - (cons a-stmt (loop (rest stmts)))] + ;(cons a-stmt (loop (rest stmts))) + (loop (rest stmts)) + ] [(Comment? a-stmt) - (cons a-stmt (loop (rest stmts)))] + (loop (rest stmts)) + ;(cons a-stmt (loop (rest stmts))) + ] [(AssignImmediateStatement? a-stmt) (cons (make-AssignImmediateStatement (rewrite-target (AssignImmediateStatement-target a-stmt)) @@ -332,7 +336,8 @@ #f] [(DebugPrint? stmt) - #f] + ;#f + #t] [(AssignImmediateStatement? stmt) (equal? (AssignImmediateStatement-target stmt)