Simplify enumerated tests here.

diff --git a/tests/runtime/test-ieee754.scm b/tests/runtime/test-ieee754.scm
index b04ba540593a1d8bca1b2122b07ec4687d6f9bb8..fd36178acad4d4093c4010727a774a88350810c4 100644 (file)
--- a/tests/runtime/test-ieee754.scm
+++ b/tests/runtime/test-ieee754.scm
@@ -26,14 +26,11 @@ USA.
 
 ;;;; Test of IEEE 754 utilities
 \f
-(define (define-enumerated-test prefix elements procedure)
-  (do ((i 0 (+ i 1))
-       (elements elements (cdr elements)))
-      ((not (pair? elements)))
-    (let ((element (car elements)))
-      (define-test (symbol prefix '/ element)
-        (lambda ()
-          (procedure element))))))
+(define (define-enumerated-test name elements procedure)
+  (define-test name
+    (map (lambda (element)
+           (lambda () (procedure element)))
+         elements)))
 
 (define ((test-ieee754-roundtrip w t bexp-inf/nan compose exact? decompose)
          bits)