From 6c34d346a773a8065c853fa51cdda3e0150c69d0 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 10 Jan 2008 20:45:22 +0000 Subject: [PATCH] fix scribble eval to not catch break svn: r8285 original commit: 73396b7d7bcb2ab623d57912fb9f16db34f400b8 --- collects/scribble/eval.ss | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/collects/scribble/eval.ss b/collects/scribble/eval.ss index 5cec7e40..8c790915 100644 --- 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)