#lang sugar/debug: use #^ instead of ^ #8

Merged
AlexKnauth merged 2 commits from patch-1 into master 9 years ago

@ -16,7 +16,7 @@
(define (make-debug-readtable [rt (current-readtable)]) (define (make-debug-readtable [rt (current-readtable)])
(make-readtable rt (make-readtable rt
#\^ 'non-terminating-macro report-proc)) #\^ 'dispatch-macro report-proc))
(define (wrap-reader reader) (define (wrap-reader reader)
@ -81,4 +81,4 @@
(lambda (key defval) (lambda (key defval)
(define (fallback) (if proc (proc key defval) defval)) (define (fallback) (if proc (proc key defval) defval))
(case key (case key
[else (fallback)])))))) [else (fallback)]))))))

@ -6,10 +6,10 @@
[only-in "completely unexpected!"] [only-in "completely unexpected!"]
[report "well, not really"]) [report "well, not really"])
(parameterize ([current-error-port out]) (parameterize ([current-error-port out])
^5) #^5)
(check-equal? (get-output-string out) "5 = 5\n")) (check-equal? (get-output-string out) "5 = 5\n"))
(let ([out (open-output-string)] (let ([out (open-output-string)]
[report/line "outta the blue!"]) [report/line "outta the blue!"])
(parameterize ([current-error-port out]) (parameterize ([current-error-port out])
^^5) #^^5)
(check-equal? (get-output-string out) "5 = 5 on line 14\n")) (check-equal? (get-output-string out) "5 = 5 on line 14\n"))

Loading…
Cancel
Save