From 045bb1813c0274e4110c35734682b32155e28bd3 Mon Sep 17 00:00:00 2001
From: Alex Shinn <alexshinn@gmail.com>
Date: Wed, 29 May 2024 14:10:42 +0900
Subject: [PATCH] reduce bound on equal?/bounded

---
 lib/chibi/equiv.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/chibi/equiv.scm b/lib/chibi/equiv.scm
index 6d88acceb..7ecb8be4a 100644
--- 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))))