reduce bound on equal?/bounded

ashinn · May 29, 2024 · 045bb18 · 045bb18
1 parent 580aaf3
commit 045bb18
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/chibi/equiv.scm b/lib/chibi/equiv.scm
@@ -45,5 +45,5 @@
                              (lp (- i 1))))))))))
        (else
         (equal? a b))))
-    (let ((res (equal?/bounded a b 100000 100000)))
+    (let ((res (equal?/bounded a b 10000 10000)))
       (and res (or (> res 0) (equiv? a b)) #t))))