fix syntax/parse docs: add pretty-printing to evaluator
This commit is contained in:
parent
5c0d75fa3e
commit
07f9b843a6
|
@ -47,6 +47,7 @@
|
||||||
(thunk))))])
|
(thunk))))])
|
||||||
(make-evaluator 'racket/base
|
(make-evaluator 'racket/base
|
||||||
#:requires (let ([mods '(racket/promise
|
#:requires (let ([mods '(racket/promise
|
||||||
|
racket/pretty
|
||||||
syntax/parse
|
syntax/parse
|
||||||
syntax/parse/debug
|
syntax/parse/debug
|
||||||
syntax/parse/experimental/splicing
|
syntax/parse/experimental/splicing
|
||||||
|
@ -58,7 +59,10 @@
|
||||||
syntax/transformer)])
|
syntax/transformer)])
|
||||||
`((for-syntax racket/base ,@mods)
|
`((for-syntax racket/base ,@mods)
|
||||||
,@mods)))))))
|
,@mods)))))))
|
||||||
(when short? (the-eval '(error-print-source-location #f)))
|
(call-in-sandbox-context the-eval
|
||||||
|
(lambda ()
|
||||||
|
(current-print (dynamic-require 'racket/pretty 'pretty-print-handler))
|
||||||
|
(when short? (error-print-source-location #f))))
|
||||||
the-eval)
|
the-eval)
|
||||||
|
|
||||||
;; ----
|
;; ----
|
||||||
|
|
Loading…
Reference in New Issue
Block a user