summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorElizabeth Hunt <elizabeth.hunt@simponic.xyz>2023-09-27 10:10:33 -0600
committerElizabeth Hunt <elizabeth.hunt@simponic.xyz>2023-09-27 10:10:33 -0600
commitb35e3998333e8190bf07ade51dba30773b3a3d0b (patch)
treebded796a9cc809073a90b170d420e93f5377f2b7 /src
parent4584437d432a0fdd787f376273d948ca3f9fcea0 (diff)
downloadcmath-b35e3998333e8190bf07ade51dba30773b3a3d0b.tar.gz
cmath-b35e3998333e8190bf07ade51dba30773b3a3d0b.zip
fix bug in which err = 0
Diffstat (limited to 'src')
-rw-r--r--src/approx/maceps.lisp1
1 files changed, 1 insertions, 0 deletions
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))))