projects
/
mit-scheme.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
fa83417
)
Omit stray sentence terminator.
author
Taylor R Campbell
<campbell@mumble.net>
Thu, 25 Oct 2018 05:16:50 +0000
(
05:16
+0000)
committer
Taylor R Campbell
<campbell@mumble.net>
Thu, 25 Oct 2018 05:16:50 +0000
(
05:16
+0000)
src/runtime/arith.scm
patch
|
blob
|
history
diff --git
a/src/runtime/arith.scm
b/src/runtime/arith.scm
index a061722a53fb2601103bcade763116b7ef9ffb7a..311fd583ebf2b90a56cfc4f84c7d4324c5cebec5 100644
(file)
--- a/
src/runtime/arith.scm
+++ b/
src/runtime/arith.scm
@@
-2208,7
+2208,7
@@
USA.
;; have |log(p/(1 - p))| > 1. Hence this error is bounded by
;;
;; |d2 + (1 + d2) log((1 + d0)/(1 + d1))/log(p/(1 - p))|
- ;; <= |d2| + |(1 + d2) log((1 + d0)/(1 + d1))/log(p/(1 - p))|
.
+ ;; <= |d2| + |(1 + d2) log((1 + d0)/(1 + d1))/log(p/(1 - p))|
;; <= |d2| + |(1 + d2) log((1 + d0)/(1 + d1))|
;; <= |d2| + 4|(1 + d2) (d0 - d1)|, by Lemma 3,
;; <= |d2| + 4|d0 - d1 + d2 d0 - d1 d0|