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 d1883d3014bdfcc2fe4f64cf15afce654c55cd24..9e0071659664981e31fcd294dad5bb214f79775b 100644 (file)
--- 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.)