From c12f4ae317c2a22d05e73fbf4be082be174f0454 Mon Sep 17 00:00:00 2001 From: Spencer Florence Date: Sun, 11 Jan 2015 10:37:01 -0500 Subject: [PATCH] removed some bad names --- cover.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/cover.rkt b/cover.rkt index 7fd2dcf..3dbe8bf 100644 --- a/cover.rkt +++ b/cover.rkt @@ -36,9 +36,9 @@ (loop)] [else (void)]))) (parameterize ([use-compiled-file-paths - (cons (build-path "compiled" "better-test") + (cons (build-path "compiled" "cover") (use-compiled-file-paths))] - [current-compile (make-better-test-compile)] + [current-compile (make-cover-compile)] [current-output-port (open-output-nowhere)]) (define tests-failed #f) (for ([p paths]) @@ -60,7 +60,7 @@ (namespace-require submod))))) (not tests-failed))) -(define (make-better-test-compile) +(define (make-cover-compile) (define compile (current-compile)) (define reg (namespace-module-registry ns)) (define phase (namespace-base-phase ns))