From 583b09ef84d0d3d7792538b45f3f921b890ac77b Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Tue, 13 Nov 2018 07:26:27 +0000 Subject: [PATCH] Speed up the ieee754.scm tests a tiny bit. --- tests/runtime/test-ieee754.scm | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/tests/runtime/test-ieee754.scm b/tests/runtime/test-ieee754.scm index fd36178ac..cde8c6ab4 100644 --- a/tests/runtime/test-ieee754.scm +++ b/tests/runtime/test-ieee754.scm @@ -25,6 +25,8 @@ USA. |# ;;;; Test of IEEE 754 utilities + +(declare (usual-integrations)) (define (define-enumerated-test name elements procedure) (define-test name @@ -53,9 +55,11 @@ USA. compose-ieee754-binary32 ieee754-binary32-exact? decompose-ieee754-binary32)) - (do ((i 0 (+ i (if keep-it-fast!? 347911 1)))) - ((>= i (expt 2 32))) - (test i)))) + (let ((increment (if keep-it-fast!? 347911 1)) + (maximum (expt 2 32))) + (do ((i 0 (+ i increment))) + ((>= i maximum)) + (test i))))) (define-enumerated-test 'binary64-roundtrip-selective '(#x0000000000000000 -- 2.25.1