Catch more stray `.' loitering around.

diff --git a/src/runtime/arith.scm b/src/runtime/arith.scm
index 2eb29f5782b71f4386dd04fbdda1997210378038..e940ebe2e037446d339a8723d54d3b57be81cdb6 100644 (file)
--- 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).