Allow #lang sugar/debug shorthands in other phases #12

Closed
AlexKnauth wants to merge 2 commits from patch-1 into master

@ -9,12 +9,22 @@
(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))

@ -1,5 +1,10 @@
#lang sugar/debug racket #lang sugar/debug racket
(require rackunit) (require rackunit
(for-meta 1 (only-in racket/base begin-for-syntax))
(for-meta 2 (only-in racket/base begin-for-syntax))
(for-meta 3 (only-in racket/base let #%app open-output-string get-output-string parameterize
current-error-port #%datum)
rackunit))
(let ([out (open-output-string)] (let ([out (open-output-string)]
[let "something else"] [let "something else"]
[local-require "something else entirely"] [local-require "something else entirely"]
@ -12,4 +17,12 @@
[report/line "outta the blue!"]) [report/line "outta the blue!"])
(parameterize ([current-error-port out]) (parameterize ([current-error-port out])
#RR5) #RR5)
(check-equal? (get-output-string out) "5 = 5 on line 14\n")) (check-equal? (get-output-string out) "5 = 5 on line 19\n"))
(begin-for-syntax
(begin-for-syntax
(begin-for-syntax
(let ([out (open-output-string)])
(parameterize ([current-error-port out])
#RR5)
(check-equal? (get-output-string out) "5 = 5 on line 27\n")))))

Loading…
Cancel
Save