fix syntax/parse docs: add pretty-printing to evaluator

This commit is contained in:
Ryan Culpepper 2020-02-29 11:52:44 +01:00
parent 5c0d75fa3e
commit 07f9b843a6

View File

@ -47,6 +47,7 @@
(thunk))))])
(make-evaluator 'racket/base
#:requires (let ([mods '(racket/promise
racket/pretty
syntax/parse
syntax/parse/debug
syntax/parse/experimental/splicing
@ -58,7 +59,10 @@
syntax/transformer)])
`((for-syntax racket/base ,@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)
;; ----