From 7fe01da7a5da9eae135b0d21322f7274ee209479 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Sat, 1 Aug 2015 09:58:02 -0700 Subject: [PATCH] change debug escape to #R --- sugar/debug.rkt | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/sugar/debug.rkt b/sugar/debug.rkt index 75016d3..457cae9 100644 --- a/sugar/debug.rkt +++ b/sugar/debug.rkt @@ -13,10 +13,11 @@ (provide (rename-out [debug-read read] [debug-read-syntax read-syntax] [debug-get-info get-info])) + + (define report-char #\R) (define (make-debug-readtable [rt (current-readtable)]) - (make-readtable rt - #\^ 'dispatch-macro report-proc)) + (make-readtable rt report-char 'dispatch-macro report-proc)) (define (wrap-reader reader) @@ -39,7 +40,7 @@ (define c2 (peek-char in)) (define c3 (peek-char in 1)) (define intro (current-syntax-introducer)) - (cond [(and (char=? c3 #\^) (char=? c2 #\^)) + (cond [(and (char=? c3 report-char) (char=? c2 report-char)) (read-char in) (read-char in) (define/with-syntax stx (intro (read-syntax/recursive src in))) @@ -47,7 +48,7 @@ #'(let () (local-require (only-in sugar/debug [report/file report/file])) (report/file stx)))] - [(char=? c2 #\^) + [(char=? c2 report-char) (read-char in) (define/with-syntax stx (intro (read-syntax/recursive src in))) (intro