mbutterick
/
sugar
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fix repl for #lang sugar/debug in old expander

Browse Source
pull/10/head
AlexKnauth 9 years ago
parent 8a121f2006
commit 4c5f408677
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File

4
sugar/debug.rkt
Unescape Escape View File

@ -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)

Write Preview
Loading…
Cancel
Save