Tighten range where it's worthwhile to evaluate this.

diff --git a/src/runtime/arith.scm b/src/runtime/arith.scm
index 2a8d874f4588f4eae13f7982f9e0b74bec4a1c9b..00463747069364e39378739a8c05b7613684d2ad 100644 (file)
--- a/src/runtime/arith.scm
+++ b/src/runtime/arith.scm
@@ -1994,7 +1994,7 @@ USA.
   (guarantee-real x 'logistic)
   (cond ((<= x -745) 0.)
        ((<= x -37) (exp x))
-       ((<= x 745) (/ 1 (+ 1 (exp (- x)))))
+       ((<= x 37) (/ 1 (+ 1 (exp (- x)))))
        (else 1.)))
 
 ;;; log p/(1 - p)