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)