diff options
author | Elizabeth Hunt <elizabeth.hunt@simponic.xyz> | 2023-09-27 10:10:33 -0600 |
---|---|---|
committer | Elizabeth Hunt <elizabeth.hunt@simponic.xyz> | 2023-09-27 10:10:33 -0600 |
commit | b35e3998333e8190bf07ade51dba30773b3a3d0b (patch) | |
tree | bded796a9cc809073a90b170d420e93f5377f2b7 /src | |
parent | 4584437d432a0fdd787f376273d948ca3f9fcea0 (diff) | |
download | cmath-b35e3998333e8190bf07ade51dba30773b3a3d0b.tar.gz cmath-b35e3998333e8190bf07ade51dba30773b3a3d0b.zip |
fix bug in which err = 0
Diffstat (limited to 'src')
-rw-r--r-- | src/approx/maceps.lisp | 1 |
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)))) |