hascheme using its own delay-force impl

1 files changed, 2 insertions, 6 deletions

diff --git a/tests/run.scm b/tests/run.scm
index 8933e00..1036295 100644
--- a/tests/run.scm
+++ b/tests/run.scm
@@ -1,18 +1,14 @@
 (cond-expand
-  (chicken-5 (import r7rs (srfi 64))
+  (chicken-6 (import (test))
              (load "../lib/tests/hascheme/base.sld"))
   (chibi (import (chibi test)))
   (else (import (srfi 64))))
 
-(cond-expand
-  (chicken-5 (test-runner-current (test-runner-create)))
-  (else))
-
 (import (scheme process-context) (tests hascheme base))
 (test-group "base" (test-base))
 
 (cond-expand
-  (chibi (test-exit))
+  ((or chibi chicken-6) (test-exit))
   (else (exit (if (zero? (test-runner-fail-count (test-runner-current)))
                   0
                   1))))