From: Taylor R Campbell <campbell@mumble.net>
Date: Mon, 22 Oct 2018 16:35:50 +0000 (+0000)
Subject: Tighten range where it's worthwhile to evaluate this.
X-Git-Tag: mit-scheme-pucked-10.1.2~16^2~174^2~7
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f3fccac76a4e59711224ffb25b9f1d674b1649b5;p=mit-scheme.git

Tighten range where it's worthwhile to evaluate this.
---

diff --git a/src/runtime/arith.scm b/src/runtime/arith.scm
index 2a8d874f4..004637470 100644
--- 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)