disable sandbox break propagation in scribble/eval

svn: r14221

original commit: 547101ac5bb81b9af1ccb39377fb6895101a2f2f

collects/scribble/eval.ss

@@ -238,7 +238,8 @@
     (call-with-trusted-sandbox-configuration
      (lambda ()
        (parameterize ([sandbox-output 'string]
-                      [sandbox-error-output 'string])
+                      [sandbox-error-output 'string]
+                      [sandbox-propagate-breaks #f])
          (make-evaluator '(begin (require scheme/base)))))))
 
   (define (close-eval e)
@@ -246,6 +247,7 @@
     "")
 
   (define (do-plain-eval ev s catching-exns?)
+    (parameterize ([sandbox-propagate-breaks #f])
       (call-with-values (lambda () 
                           ((scribble-eval-handler) 
                            ev
@@ -262,7 +264,7 @@
                               [(string? s)
                                `(begin ,s)]
                               [else s]))))
-      list))
+        list)))
 
   (define-syntax-rule (quote-expr e) 'e)