suzanne.soy/scribble-enhanced
1
0
Fork 0
Code Issues 1 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

fix scribble interaction error msg

Browse Source 
fix error msg when scribble interaction #:eval
does not have sandbox-error-output set to 'string

original commit: 7d7e16abe480f5e6a591ad12e30ce733391e3098
This commit is contained in:
Stephen Chang 2013-10-18 02:57:17 -04:00
parent cf6d7c2058
commit 0add737732
2 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pkgs/racket-pkgs/racket-test/tests/help/test-docs-complete.rkt
View File

@ -1,3 +0,0 @@
#lang racket/base
(require rackunit/docs-complete)
(check-docs (quote help/help-utils))

5
pkgs/scribble-pkgs/scribble-lib/scribble/eval.rkt
View File

@ -10,6 +10,7 @@
(for-syntax racket/base syntax/srcloc unstable/struct) (for-syntax racket/base syntax/srcloc unstable/struct)
racket/stxparam racket/stxparam
racket/splicing racket/splicing
racket/string
scribble/text/wrap) scribble/text/wrap)
(provide interaction (provide interaction
@ -215,8 +216,8 @@
(define s (getter ev)) (define s (getter ev))
(if (string? s) (if (string? s)
s s
(error who "missing ~a, possibly from a sandbox ~a" (error who "missing ~a, possibly from a sandbox without a `sandbox-~a' configured to 'string"
what "without a `sandbox-output' configured to 'string"))) what (string-join (string-split what) "-"))))
(list (get get-output "output") (get get-error-output "error output"))) (list (get get-output "output") (get get-error-output "error output")))
(define (render-value v) (define (render-value v)
(let-values ([(eval-print eval-print-as-expr?) (let-values ([(eval-print eval-print-as-expr?)