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

Have the optimizer ignore struct/exec.

Browse Source
This commit is contained in:
Vincent St-Amour 2010-10-06 18:43:35 -04:00
parent 3ec9503da9
commit 99178c70a0
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/typed-scheme/optimizer/optimizer.rkt
View File

@ -86,6 +86,7 @@
[optimize (syntax-parser [optimize (syntax-parser
[e:expr [e:expr
#:when (and (not (syntax-property #'e 'typechecker:ignore)) #:when (and (not (syntax-property #'e 'typechecker:ignore))
(not (syntax-property #'e 'typechecker:ignore-some))
(not (syntax-property #'e 'typechecker:with-handlers))) (not (syntax-property #'e 'typechecker:with-handlers)))
#:with e*:opt-expr #'e #:with e*:opt-expr #'e
#'e*.opt] #'e*.opt]