From 6ef3c99d4476cc1df1b284f49b57fbd1af8afe90 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Sat, 1 Dec 2018 22:50:07 +0000 Subject: [PATCH] Speed this up a little at the expense of coverage. --- tests/runtime/test-ieee754.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)) -- 2.25.1