fix scribble interaction error msg
fix error msg when scribble interaction #:eval does not have sandbox-error-output set to 'string
This commit is contained in:
parent
4c503d7a55
commit
7d7e16abe4
|
@ -10,6 +10,7 @@
|
|||
(for-syntax racket/base syntax/srcloc unstable/struct)
|
||||
racket/stxparam
|
||||
racket/splicing
|
||||
racket/string
|
||||
scribble/text/wrap)
|
||||
|
||||
(provide interaction
|
||||
|
@ -215,8 +216,8 @@
|
|||
(define s (getter ev))
|
||||
(if (string? s)
|
||||
s
|
||||
(error who "missing ~a, possibly from a sandbox ~a"
|
||||
what "without a `sandbox-output' configured to 'string")))
|
||||
(error who "missing ~a, possibly from a sandbox without a `sandbox-~a' configured to 'string"
|
||||
what (string-join (string-split what) "-"))))
|
||||
(list (get get-output "output") (get get-error-output "error output")))
|
||||
(define (render-value v)
|
||||
(let-values ([(eval-print eval-print-as-expr?)
|
||||
|
|
Loading…
Reference in New Issue
Block a user