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

Have optimizer ignore #%top expressions.

Browse Source
This commit is contained in:
Vincent St-Amour 2013-11-08 16:19:16 -05:00
parent 80fba7f42d
commit 3494b89f25
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/optimizer/optimizer.rkt
View File

@ -76,7 +76,7 @@
(pattern (~and ((~or #%provide #%require begin-for-syntax define-syntaxes module module*) (pattern (~and ((~or #%provide #%require begin-for-syntax define-syntaxes module module*)
. _) . _)
opt)) opt))
(pattern (~and (~or (quote _) (quote-syntax _) :id) opt))) (pattern (~and (~or (quote _) (quote-syntax _) (#%top . _) :id) opt)))
(define (optimize-top stx) (define (optimize-top stx)
(parameterize ([optimize (syntax-parser [e:opt-expr* #'e.opt])]) (parameterize ([optimize (syntax-parser [e:opt-expr* #'e.opt])])