From: Taylor R Campbell <campbell@mumble.net>
Date: Tue, 20 Nov 2018 07:01:43 +0000 (+0000)
Subject: Fix harmless typo.
X-Git-Tag: mit-scheme-pucked-10.1.2~16^2~12
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=12847ba67a0c74846f0d224f4ad8a762129c7c83;p=mit-scheme.git

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.
---

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.)