From f3fccac76a4e59711224ffb25b9f1d674b1649b5 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Mon, 22 Oct 2018 16:35:50 +0000 Subject: [PATCH] Tighten range where it's worthwhile to evaluate this. --- src/runtime/arith.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 2.25.1