something better than (not (exn:break? x)) (Issue #19)

2015-01-12 10:37:39 -05:00 · 2015-01-12 10:37:39 -05:00 · 1f9f11147c
commit 1f9f11147c
parent 115acbd785
1 changed files with 1 additions and 1 deletions
--- 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))])