From df0d87c948c1cb89abd613c734c1d32f9b0a78e3 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Fri, 8 Nov 2013 13:46:19 -0500 Subject: [PATCH] Add missing core form. original commit: 2d6fc203508445de04511bab038f7c6e69e65be0 --- .../typed-racket-lib/typed-racket/optimizer/optimizer.rkt | 4 +++- 1 file changed, 3 insertions(+), 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 a933d3c0..1bf613ba 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 @@ -73,7 +73,9 @@ e:opt-expr ...) #:with opt (quasisyntax/loc/origin this-syntax #'kw (kw e.opt ...))) - (pattern (~and ((~or #%provide #%require begin-for-syntax module module*) . _) opt)) + (pattern (~and ((~or #%provide #%require begin-for-syntax define-syntaxes module module*) + . _) + opt)) (pattern (~and (~or (quote _) (quote-syntax _) :id) opt))) (define (optimize-top stx)