respect Ctrl-C (Issue #19)

2015-01-12 10:04:35 -05:00 · 2015-01-12 10:04:35 -05:00 · d4e3aaf6ab
commit d4e3aaf6ab
parent 5be5121ec3
1 changed files with 4 additions and 3 deletions
--- a/cover.rkt
+++ b/cover.rkt
@ -34,7 +34,8 @@
    (for ([p paths])
      (vprintf "running file: ~s\n" p)
      (define old-check (current-check-handler))
-      (with-handlers ([void (lambda (x)
+      (with-handlers ([(lambda (x) (not (exn:break? x)))
+                       (lambda (x)
                         (set! tests-failed #t)
                         (error-display x))])
        (parameterize* ([current-namespace ns]