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

commit 6c34d346a773a8065c853fa51cdda3e0150c69d0
parent 4a3d0e82ba74161df1c02a5276e6bae79cf3c5e2
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Thu, 10 Jan 2008 20:45:22 +0000

fix scribble eval to not catch break

svn: r8285

original commit: 73396b7d7bcb2ab623d57912fb9f16db34f400b8

Diffstat:
M
collects/scribble/eval.ss
 | 
8
++++----

1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/collects/scribble/eval.ss b/collects/scribble/eval.ss
@@ -133,10 +133,10 @@
      [(eval:alts p e)
       ((do-eval ev) #'e)]
      [else
-      (with-handlers ([exn? (lambda (e)
-                              (list (exn-message e)
-                                    (get-output ev)
-                                    (get-error-output ev)))])
+      (with-handlers ([exn:fail? (lambda (e)
+                                   (list (exn-message e)
+                                         (get-output ev)
+                                         (get-error-output ev)))])
         (list (let ([v (do-plain-eval ev s #t)])
                 (make-reader-graph (copy-value v (make-hash-table))))
               (get-output ev)