From 1eca551202d7e5c049160df07ef58c67def35fd1 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Thu, 7 Nov 2013 13:49:42 -0500 Subject: [PATCH] Typo. original commit: 47aee51359f6b1ba5e84c21d333524f783512442 --- .../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 b1a3c93e..a933d3c0 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,7 @@ 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 module module*) . _) opt)) (pattern (~and (~or (quote _) (quote-syntax _) :id) opt))) (define (optimize-top stx)