From b35e3998333e8190bf07ade51dba30773b3a3d0b Mon Sep 17 00:00:00 2001
From: Elizabeth Hunt <elizabeth.hunt@simponic.xyz>
Date: Wed, 27 Sep 2023 10:10:33 -0600
Subject: fix bug in which err = 0

---
 src/approx/maceps.lisp | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/approx')

diff --git a/src/approx/maceps.lisp b/src/approx/maceps.lisp
index ad234e8..debaa67 100644
--- a/src/approx/maceps.lisp
+++ b/src/approx/maceps.lisp
@@ -8,4 +8,5 @@
           (setf h (/ h 2)
                 err (abs (- (funcall f (+ a h))
                             (funcall f a))))
+          when (> err 0)
           collect (list a h err))))
-- 
cgit v1.2.3-70-g09d2