From a2b10f72f737efc15684f64df4a66df800be917b Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Sun, 13 Sep 2015 15:22:12 -0500 Subject: [PATCH] Remove dependency on unstable/error. --- cover/cover.rkt | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/cover/cover.rkt b/cover/cover.rkt index 1387279..9373adf 100644 --- a/cover/cover.rkt +++ b/cover/cover.rkt @@ -43,7 +43,6 @@ Thus, In essence this module has three responsibilites: racket/path racket/syntax rackunit/log - unstable/error racket/list racket/port 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))] [else (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] [exit-handler (lambda (x) (raise (an-exit x)))]) (vprintf "running file: ~s with args: ~s" the-file argv)