|
|
@ -9,13 +9,23 @@
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(module reader racket/base
|
|
|
|
(module reader racket/base
|
|
|
|
(require syntax/module-reader racket/syntax version/utils)
|
|
|
|
(require (only-in syntax/module-reader make-meta-reader)
|
|
|
|
|
|
|
|
racket/syntax
|
|
|
|
|
|
|
|
version/utils
|
|
|
|
|
|
|
|
syntax/parse/define
|
|
|
|
|
|
|
|
(for-syntax racket/base racket/list))
|
|
|
|
(provide (rename-out [debug-read read]
|
|
|
|
(provide (rename-out [debug-read read]
|
|
|
|
[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 report-char #\R)
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(define-simple-macro (require-a-lot require-spec)
|
|
|
|
|
|
|
|
#:with [i ...] (range -10 11)
|
|
|
|
|
|
|
|
(require (for-meta i require-spec) ...))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(require-a-lot racket/base)
|
|
|
|
|
|
|
|
|
|
|
|
(define (make-debug-readtable [rt (current-readtable)])
|
|
|
|
(define (make-debug-readtable [rt (current-readtable)])
|
|
|
|
(make-readtable rt report-char 'dispatch-macro report-proc))
|
|
|
|
(make-readtable rt report-char 'dispatch-macro report-proc))
|
|
|
|
|
|
|
|
|
|
|
|