suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

flagging some things as no-ops

Browse Source
This commit is contained in:
Danny Yoo 2011-09-16 18:00:05 -04:00
parent b8cfd43a50
commit 22eb5fc187
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/optimize-il.rkt
View File

@ -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)