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

Remove dependency on unstable/error.

Browse Source
This commit is contained in:
Vincent St-Amour 2015-09-13 15:22:12 -05:00 committed by Spencer Florence
parent f85a12bdc6
commit a2b10f72f7
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
cover/cover.rkt
View File

@ -43,7 +43,6 @@ Thus, In essence this module has three responsibilites:
racket/path racket/path
racket/syntax racket/syntax
rackunit/log rackunit/log
unstable/error
racket/list racket/list
racket/port racket/port
custom-load custom-load
@ -146,7 +145,11 @@ Thus, In essence this module has three responsibilites:
(vprintf "file ~s exited code ~s" the-file (an-exit-code x))] (vprintf "file ~s exited code ~s" the-file (an-exit-code x))]
[else [else
(set! tests-errored #t) (set! tests-errored #t)
(error-display x)]))]) ((error-display-handler)
(if (exn? x)
(exn-message x)
"non-exn error:")
x)]))])
(parameterize ([current-command-line-arguments argv] (parameterize ([current-command-line-arguments argv]
[exit-handler (lambda (x) (raise (an-exit x)))]) [exit-handler (lambda (x) (raise (an-exit x)))])
(vprintf "running file: ~s with args: ~s" the-file argv) (vprintf "running file: ~s with args: ~s" the-file argv)