From c1892b20f7690c6736b4e6a821ee4f491424b6d3 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Thu, 25 Oct 2018 05:22:00 +0000 Subject: [PATCH] Catch more stray `.' loitering around. --- src/runtime/arith.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/runtime/arith.scm b/src/runtime/arith.scm index 2eb29f578..e940ebe2e 100644 --- a/src/runtime/arith.scm +++ b/src/runtime/arith.scm @@ -2235,7 +2235,7 @@ USA. ;; e^t), and |log(1 - e^t)| < 1 < |t|, we have ;; ;; |t - log(e^t/(1 - e^t))|/|log(e^t/(1 - e^t))| - ;; = |log(1 - e^t)|/|t - log(1 - e^t)|. + ;; = |log(1 - e^t)|/|t - log(1 - e^t)| ;; <= |log(1 - e^t)| ;; <= 1/(1 - e^t) ;; <= 2|e^t| @@ -2262,7 +2262,7 @@ USA. ;; = (1 - 2 e^t) (1 - 2 d0 e^t/(1 - 2 e^t)) (1 + d1) ;; / [(1 + d0) e^t] ;; = [(1 - 2 e^t)/e^t] - ;; * (1 - 2 d0 e^t/(1 - 2 e^t)) (1 + d1)/(1 + d0). + ;; * (1 - 2 d0 e^t/(1 - 2 e^t)) (1 + d1)/(1 + d0) ;; = [(1 - 2 e^t)/e^t] ;; * (1 + d1 - (1 + d1) 2 d0 e^t/(1 - 2 e^t)) ;; / (1 + d0). -- 2.25.1