From ed4294a6f2bb2b886be34fc31b72a1e05c9efa69 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Wed, 6 Oct 2010 18:43:35 -0400 Subject: [PATCH] Have the optimizer ignore struct/exec. original commit: 99178c70a0dd5add19b13eec4380f357e0e6680c --- collects/typed-scheme/optimizer/optimizer.rkt | 1 + 1 file changed, 1 insertion(+) diff --git a/collects/typed-scheme/optimizer/optimizer.rkt b/collects/typed-scheme/optimizer/optimizer.rkt index 685e1a9e..ac792fe0 100644 --- 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]