run more iterations to get the gc to kick in

mattwparas · Nov 10, 2023 · 80fb0f5 · 80fb0f5
1 parent 7388092
commit 80fb0f5
Showing 1 changed file with 1 addition and 2 deletions.
diff --git 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)))