From f3ae9c73b0f58d2d56e2ee3cee605c58a9bb3a1d Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Tue, 12 Oct 2010 15:56:00 -0400 Subject: [PATCH] Changed the interface for running single optimizer tests. --- collects/tests/typed-scheme/optimizer/run.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/tests/typed-scheme/optimizer/run.rkt b/collects/tests/typed-scheme/optimizer/run.rkt index 877871757b..9dfe94d0c1 100644 --- a/collects/tests/typed-scheme/optimizer/run.rkt +++ b/collects/tests/typed-scheme/optimizer/run.rkt @@ -84,7 +84,7 @@ (let ((n-failures (if to-run - (if (test (format "tests/~a.rkt" to-run)) 0 1) + (if (test to-run) 0 1) (for/fold ((n-failures 0)) ((gen (in-directory tests-dir))) (+ n-failures (if (test gen) 0 1))))))