From 3494b89f25525db0b848c8da5bb21db382578a2f Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Fri, 8 Nov 2013 16:19:16 -0500 Subject: [PATCH] Have optimizer ignore #%top expressions. --- .../typed-racket-lib/typed-racket/optimizer/optimizer.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/optimizer/optimizer.rkt b/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/optimizer/optimizer.rkt index 1bf613ba6f..917322e098 100644 --- a/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/optimizer/optimizer.rkt +++ b/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/optimizer/optimizer.rkt @@ -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])])