Speed this up a little at the expense of coverage.

diff --git a/tests/runtime/test-ieee754.scm b/tests/runtime/test-ieee754.scm
index 0c23bca4105aec991418b6f8185b4adbefa54f5b..364313a9ce59ec4e467d30bfafa06ed4bc57245a 100644 (file)
--- a/tests/runtime/test-ieee754.scm
+++ b/tests/runtime/test-ieee754.scm
@@ -64,7 +64,7 @@ USA.
                               compose-ieee754-binary32
                               ieee754-binary32-exact?
                               decompose-ieee754-binary32))
-    (let ((increment (if keep-it-fast!? 347911 1))
+    (let ((increment (if keep-it-fast!? 347911 123))
           (maximum (expt 2 32)))
       (do ((i 0 (+ i increment)))
           ((>= i maximum))