From 4c5f40867705e164c5ca95ba7ae072976078861a Mon Sep 17 00:00:00 2001 From: AlexKnauth Date: Tue, 4 Aug 2015 22:58:42 -0500 Subject: [PATCH] fix repl for #lang sugar/debug in old expander --- sugar/debug.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/sugar/debug.rkt b/sugar/debug.rkt index 457cae9..5047558 100644 --- a/sugar/debug.rkt +++ b/sugar/debug.rkt @@ -9,7 +9,7 @@ (module reader racket/base - (require syntax/module-reader racket/syntax) + (require syntax/module-reader racket/syntax version/utils) (provide (rename-out [debug-read read] [debug-read-syntax read-syntax] [debug-get-info get-info])) @@ -26,7 +26,7 @@ (parameterize ([current-readtable (make-debug-readtable (current-readtable))] [current-syntax-introducer intro]) (define stx (apply reader args)) - (if (syntax? stx) + (if (and (syntax? stx) (version<=? "6.2.900.4" (version))) (intro stx) stx))) rd)