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

Have optimizer ignore #%top expressions.

Browse Source 
original commit: 3494b89f25525db0b848c8da5bb21db382578a2f
This commit is contained in:
Vincent St-Amour 2013-11-08 16:19:16 -05:00
parent 08adb59b66
commit 89d248332c
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*)
. _)
opt))
(pattern (~and (~or (quote _) (quote-syntax _) :id) opt)))
(pattern (~and (~or (quote _) (quote-syntax _) (#%top . _) :id) opt)))
(define (optimize-top stx)
(parameterize ([optimize (syntax-parser [e:opt-expr* #'e.opt])])