From 1f9f11147c7ada7444a9a9b1ef545c0508bb0e64 Mon Sep 17 00:00:00 2001 From: Spencer Florence Date: Mon, 12 Jan 2015 10:37:39 -0500 Subject: [PATCH] something better than (not (exn:break? x)) (Issue #19) --- cover.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/cover.rkt b/cover.rkt index 097de18..b55ba9a 100644 --- a/cover.rkt +++ b/cover.rkt @@ -34,7 +34,7 @@ (for ([p paths]) (vprintf "running file: ~s\n" p) (define old-check (current-check-handler)) - (with-handlers ([(lambda (x) (not (exn:break? x))) + (with-handlers ([(lambda (x) (or (not (exn? x)) (exn:fail? x))) (lambda (x) (set! tests-failed #t) (error-display x))])