Define test-with-runner macro before its use

Unlike R6RS, R[57]RS don't have explicit definition of macro expansion
process.  Some implementations may require a macro to be defined
before its use appear, even in rhs of definitions.

Author: shirok

testing.scm

@@ -921,6 +921,15 @@
          (test-result-alist! r '())
          (%test-error r #t expr)))))))
 
+(define-syntax test-with-runner
+  (syntax-rules ()
+    ((test-with-runner runner form ...)
+     (let ((saved-runner (test-runner-current)))
+       (dynamic-wind
+           (lambda () (test-runner-current runner))
+           (lambda () form ...)
+           (lambda () (test-runner-current saved-runner)))))))
+
 (define (test-apply first . rest)
   (if (test-runner? first)
       (test-with-runner first (apply test-apply rest))
@@ -940,15 +949,6 @@
 	      (test-with-runner r (apply test-apply first rest))
 	      ((test-runner-on-final r) r))))))
 
-(define-syntax test-with-runner
-  (syntax-rules ()
-    ((test-with-runner runner form ...)
-     (let ((saved-runner (test-runner-current)))
-       (dynamic-wind
-           (lambda () (test-runner-current runner))
-           (lambda () form ...)
-           (lambda () (test-runner-current saved-runner)))))))
-
 ;;; Predicates
 
 (define (%test-match-nth n count)