From 76e721f52b6b9267c93fd9dbdf166bf10dfe170c Mon Sep 17 00:00:00 2001 From: Alex Knauth Date: Fri, 31 Jul 2015 15:00:33 -0400 Subject: [PATCH 1/2] #lang sugar/debug: use #^ instead of ^ fixes https://github.com/mbutterick/sugar/issues/7 --- sugar/debug.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/sugar/debug.rkt b/sugar/debug.rkt index 1c125b2..75016d3 100644 --- a/sugar/debug.rkt +++ b/sugar/debug.rkt @@ -16,7 +16,7 @@ (define (make-debug-readtable [rt (current-readtable)]) (make-readtable rt - #\^ 'non-terminating-macro report-proc)) + #\^ 'dispatch-macro report-proc)) (define (wrap-reader reader) @@ -81,4 +81,4 @@ (lambda (key defval) (define (fallback) (if proc (proc key defval) defval)) (case key - [else (fallback)])))))) \ No newline at end of file + [else (fallback)])))))) From 091774a1cbb2710b6620b7fee78c57bc7426e00b Mon Sep 17 00:00:00 2001 From: Alex Knauth Date: Fri, 31 Jul 2015 15:24:27 -0400 Subject: [PATCH 2/2] update test file --- sugar/test/debug-meta-lang.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/sugar/test/debug-meta-lang.rkt b/sugar/test/debug-meta-lang.rkt index 951aa5d..ecc3d82 100644 --- a/sugar/test/debug-meta-lang.rkt +++ b/sugar/test/debug-meta-lang.rkt @@ -6,10 +6,10 @@ [only-in "completely unexpected!"] [report "well, not really"]) (parameterize ([current-error-port out]) - ^5) + #^5) (check-equal? (get-output-string out) "5 = 5\n")) (let ([out (open-output-string)] [report/line "outta the blue!"]) (parameterize ([current-error-port out]) - ^^5) + #^^5) (check-equal? (get-output-string out) "5 = 5 on line 14\n"))