From 12847ba67a0c74846f0d224f4ad8a762129c7c83 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Tue, 20 Nov 2018 07:01:43 +0000 Subject: [PATCH] Fix harmless typo. Accidentally using base 2 set this bound far lower than it needed to be, but this branch isn't necessary anyway; it just skips a call to exp that would have given the same result. --- 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 d1883d301..9e0071659 100644 --- a/src/runtime/arith.scm +++ b/src/runtime/arith.scm @@ -2283,7 +2283,7 @@ USA. (define (logistic x) (guarantee-real x 'logistic) - (cond ((< x flo:least-subnormal-exponent-base-2) + (cond ((< x flo:least-subnormal-exponent-base-e) ;; e^x/(1 + e^x) < e^x < smallest positive float. (XXX Should ;; raise inexact and underflow here.) 0.) -- 2.25.1