Merge pull request #10 from AlexKnauth/fix-debug-repl

fix repl for #lang sugar/debug in old expander
pull/11/head
Matthew Butterick 9 years ago
commit db17d1860b

@ -9,7 +9,7 @@
(module reader racket/base (module reader racket/base
(require syntax/module-reader racket/syntax) (require syntax/module-reader racket/syntax version/utils)
(provide (rename-out [debug-read read] (provide (rename-out [debug-read read]
[debug-read-syntax read-syntax] [debug-read-syntax read-syntax]
[debug-get-info get-info])) [debug-get-info get-info]))
@ -26,7 +26,7 @@
(parameterize ([current-readtable (make-debug-readtable (current-readtable))] (parameterize ([current-readtable (make-debug-readtable (current-readtable))]
[current-syntax-introducer intro]) [current-syntax-introducer intro])
(define stx (apply reader args)) (define stx (apply reader args))
(if (syntax? stx) (if (and (syntax? stx) (version<=? "6.2.900.4" (version)))
(intro stx) (intro stx)
stx))) stx)))
rd) rd)

Loading…
Cancel
Save