Fix sense of test. Do this part only if 1 - p is guaranteed exact.

diff --git a/tests/runtime/test-arith.scm b/tests/runtime/test-arith.scm
index 973137873ca939974059bde12ea11492a618f4b7..ea5a6a1cd5d2fc9954462331589429a943d74542 100644 (file)
--- a/tests/runtime/test-arith.scm
+++ b/tests/runtime/test-arith.scm
@@ -211,7 +211,7 @@ USA.
       (if (< p 1)
           (begin
             (assert->= 1e-15 (relerr (- 1 p) (logistic (- x))))
-            (if (< (- 1 p) 1)
+            (if (<= 1/2 p)
                 (assert->= 1e-15 (relerr (- x) (logit (- 1 p))))))
           (assert->= 1e-300 (logistic (- x))))
       (assert->= 1e-15 (relerr t (log-logistic x)))