Have the optimizer ignore struct/exec.

original commit: 99178c70a0dd5add19b13eec4380f357e0e6680c
2010-10-06 18:43:35 -04:00 · 2010-10-06 18:43:35 -04:00 · ed4294a6f2
commit ed4294a6f2
parent 220b41c75e
1 changed files with 1 additions and 0 deletions
--- a/collects/typed-scheme/optimizer/optimizer.rkt
+++ b/collects/typed-scheme/optimizer/optimizer.rkt
@ -86,6 +86,7 @@
                     [optimize (syntax-parser
                                [e:expr
                                 #:when (and (not (syntax-property #'e 'typechecker:ignore))
+                                             (not (syntax-property #'e 'typechecker:ignore-some))
                                             (not (syntax-property #'e 'typechecker:with-handlers)))
                                 #:with e*:opt-expr #'e
                                 #'e*.opt]