From 80fb0f5b1f6d5f1790515acfcf6490b2eed02657 Mon Sep 17 00:00:00 2001 From: mattwparas Date: Thu, 9 Nov 2023 20:24:04 -0800 Subject: [PATCH] run more iterations to get the gc to kick in --- r7rs-benchmarks/simplex.scm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/r7rs-benchmarks/simplex.scm b/r7rs-benchmarks/simplex.scm index d011ca3f4..3d6d6ea6b 100644 --- a/r7rs-benchmarks/simplex.scm +++ b/r7rs-benchmarks/simplex.scm @@ -237,8 +237,7 @@ (let loop ([i 0]) ; (when (< i 1000000) - ; (when (< i 1000000) - (when (< i 1) + (when (< i 10000) (begin ; (displayln i) (assert! (equal? (list (vector 4 1 3 2) (vector 0 5 7 6)) (test 740.0)))