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

protect the expansion of `enter!'

Browse Source
This commit is contained in:
Matthew Flatt 2011-07-02 19:41:27 -06:00
parent b57cf0134f
commit 3dcb19007d
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/racket/enter.rkt
View File

@ -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! <module-path-or-#f> [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! <module-path-or-#f> [noise-flag])'"
stx)])))
(define orig-namespace (current-namespace))