From: Taylor R Campbell <campbell@mumble.net>
Date: Sat, 1 Dec 2018 22:50:07 +0000 (+0000)
Subject: Speed this up a little at the expense of coverage.
X-Git-Tag: mit-scheme-pucked-10.1.7~3^2~68
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6ef3c99d4476cc1df1b284f49b57fbd1af8afe90;p=mit-scheme.git

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 0c23bca41..364313a9c 100644
--- 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))