diff --git a/collects/racket/enter.rkt b/collects/racket/enter.rkt index 1132847b6a..f81b98a214 100644 --- a/collects/racket/enter.rkt +++ b/collects/racket/enter.rkt @@ -11,12 +11,13 @@ (unless (memq (syntax-e noise) '(#:verbose #:quiet #:verbose-reload)) (raise-syntax-error #f "not a valid verbosity keyword" stx noise)) #`(do-enter! '#,mod '#,noise)) - (syntax-case stx () - [(enter! mod) (do-enter #'mod #'#:verbose-reload)] - [(enter! mod noise) (do-enter #'mod #'noise)] - [_ (raise-syntax-error - #f "bad syntax; should be `(enter! [noise-flag])'" - stx)])) + (syntax-protect + (syntax-case stx () + [(enter! mod) (do-enter #'mod #'#:verbose-reload)] + [(enter! mod noise) (do-enter #'mod #'noise)] + [_ (raise-syntax-error + #f "bad syntax; should be `(enter! [noise-flag])'" + stx)]))) (define orig-namespace (current-namespace))