bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit 0add73773243b76475f31c26794176a4b5fbba26
parent cf6d7c2058c7d90ecce61289df488b45cbb004d1
Author: Stephen Chang <stchang216@gmail.com>
Date:   Fri, 18 Oct 2013 02:57:17 -0400

fix scribble interaction error msg

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

original commit: 7d7e16abe480f5e6a591ad12e30ce733391e3098

Diffstat:
D
pkgs/racket-pkgs/racket-test/tests/help/test-docs-complete.rkt
 | 
3
---
M
pkgs/scribble-pkgs/scribble-lib/scribble/eval.rkt
 | 
5
+++--

2 files changed, 3 insertions(+), 5 deletions(-)
diff --git a/pkgs/racket-pkgs/racket-test/tests/help/test-docs-complete.rkt b/pkgs/racket-pkgs/racket-test/tests/help/test-docs-complete.rkt
@@ -1,3 +0,0 @@
-#lang racket/base
-(require rackunit/docs-complete)
-(check-docs (quote help/help-utils))
diff --git a/pkgs/scribble-pkgs/scribble-lib/scribble/eval.rkt b/pkgs/scribble-pkgs/scribble-lib/scribble/eval.rkt
@@ -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?)