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))))