suzanne.soy/cover
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

respect Ctrl-C (Issue #19)

Browse Source
This commit is contained in:
Spencer Florence 2015-01-12 10:04:35 -05:00
parent 5be5121ec3
commit d4e3aaf6ab
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
cover.rkt
View File

@ -34,7 +34,8 @@
(for ([p paths]) (for ([p paths])
(vprintf "running file: ~s\n" p) (vprintf "running file: ~s\n" p)
(define old-check (current-check-handler)) (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) (set! tests-failed #t)
(error-display x))]) (error-display x))])
(parameterize* ([current-namespace ns] (parameterize* ([current-namespace ns]