From 0add73773243b76475f31c26794176a4b5fbba26 Mon Sep 17 00:00:00 2001 From: Stephen Chang Date: Fri, 18 Oct 2013 02:57:17 -0400 Subject: [PATCH] fix scribble interaction error msg fix error msg when scribble interaction #:eval does not have sandbox-error-output set to 'string original commit: 7d7e16abe480f5e6a591ad12e30ce733391e3098 --- .../racket-test/tests/help/test-docs-complete.rkt | 3 --- pkgs/scribble-pkgs/scribble-lib/scribble/eval.rkt | 5 +++-- 2 files changed, 3 insertions(+), 5 deletions(-) delete mode 100644 pkgs/racket-pkgs/racket-test/tests/help/test-docs-complete.rkt 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 deleted file mode 100644 index 896377e4..00000000 --- a/pkgs/racket-pkgs/racket-test/tests/help/test-docs-complete.rkt +++ /dev/null @@ -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 index 6ec781b5..7cc491ca 100644 --- 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?)