aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/strap/DFLOAT.lsp
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/strap/DFLOAT.lsp')
-rw-r--r--src/algebra/strap/DFLOAT.lsp2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/strap/DFLOAT.lsp b/src/algebra/strap/DFLOAT.lsp
index 6f32c302..8f162868 100644
--- a/src/algebra/strap/DFLOAT.lsp
+++ b/src/algebra/strap/DFLOAT.lsp
@@ -763,7 +763,7 @@
(+ (* |q| |q1|) |q0|)
|DFLOAT;rationalApproximation;$2NniF;87|)
(COND
- ((OR (EQL |r| 0)
+ ((OR (ZEROP |r|)
(<
(SPADCALL |tol|
(ABS