|
|
@ -14,9 +14,10 @@
|
|
|
|
[debug-read-syntax read-syntax]
|
|
|
|
[debug-read-syntax read-syntax]
|
|
|
|
[debug-get-info get-info]))
|
|
|
|
[debug-get-info get-info]))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(define report-char #\R)
|
|
|
|
|
|
|
|
|
|
|
|
(define (make-debug-readtable [rt (current-readtable)])
|
|
|
|
(define (make-debug-readtable [rt (current-readtable)])
|
|
|
|
(make-readtable rt
|
|
|
|
(make-readtable rt report-char 'dispatch-macro report-proc))
|
|
|
|
#\^ 'dispatch-macro report-proc))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(define (wrap-reader reader)
|
|
|
|
(define (wrap-reader reader)
|
|
|
@ -39,7 +40,7 @@
|
|
|
|
(define c2 (peek-char in))
|
|
|
|
(define c2 (peek-char in))
|
|
|
|
(define c3 (peek-char in 1))
|
|
|
|
(define c3 (peek-char in 1))
|
|
|
|
(define intro (current-syntax-introducer))
|
|
|
|
(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)
|
|
|
|
(read-char in)
|
|
|
|
(read-char in)
|
|
|
|
(define/with-syntax stx (intro (read-syntax/recursive src in)))
|
|
|
|
(define/with-syntax stx (intro (read-syntax/recursive src in)))
|
|
|
@ -47,7 +48,7 @@
|
|
|
|
#'(let ()
|
|
|
|
#'(let ()
|
|
|
|
(local-require (only-in sugar/debug [report/file report/file]))
|
|
|
|
(local-require (only-in sugar/debug [report/file report/file]))
|
|
|
|
(report/file stx)))]
|
|
|
|
(report/file stx)))]
|
|
|
|
[(char=? c2 #\^)
|
|
|
|
[(char=? c2 report-char)
|
|
|
|
(read-char in)
|
|
|
|
(read-char in)
|
|
|
|
(define/with-syntax stx (intro (read-syntax/recursive src in)))
|
|
|
|
(define/with-syntax stx (intro (read-syntax/recursive src in)))
|
|
|
|
(intro
|
|
|
|
(intro
|
|
|
|