From d4e3aaf6ab8038dd06fcb48e1e9b4d3a0e8a57bc Mon Sep 17 00:00:00 2001 From: Spencer Florence Date: Mon, 12 Jan 2015 10:04:35 -0500 Subject: [PATCH] respect Ctrl-C (Issue #19) --- cover.rkt | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/cover.rkt b/cover.rkt index 2830e49..097de18 100644 --- a/cover.rkt +++ b/cover.rkt @@ -34,9 +34,10 @@ (for ([p paths]) (vprintf "running file: ~s\n" p) (define old-check (current-check-handler)) - (with-handlers ([void (lambda (x) - (set! tests-failed #t) - (error-display x))]) + (with-handlers ([(lambda (x) (not (exn:break? x))) + (lambda (x) + (set! tests-failed #t) + (error-display x))]) (parameterize* ([current-namespace ns] [(get-check-handler-parameter) (lambda x