summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGary Houston <ghouston@arglist.com>1997-04-12 19:47:09 +0000
committerGary Houston <ghouston@arglist.com>1997-04-12 19:47:09 +0000
commit6549522160a5bd3594ccc47f95ea9ac8698fb7e5 (patch)
tree45b20674fef03eacd4d394b12e19817f982d4668
parent4c1feaa596bc4d25fb4cfb9c4ee73fd790ded643 (diff)
downloadguile-6549522160a5bd3594ccc47f95ea9ac8698fb7e5.tar.gz
* boot-9.scm (log10): defined.
-rw-r--r--ice-9/ChangeLog4
-rw-r--r--ice-9/boot-9.scm3
2 files changed, 7 insertions, 0 deletions
diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index 357cecd5e..6af2697c1 100644
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -1,3 +1,7 @@
+Sat Apr 12 08:27:05 1997 Gary Houston <ghouston@actrix.gen.nz>
+
+ * boot-9.scm (log10): defined.
+
Tue Apr 1 17:46:49 1997 Gary Houston <ghouston@actrix.gen.nz>
* expect.scm (expect-select): correct the millisecond timeout
diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index e94f360ae..414b1e0d8 100644
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -884,6 +884,9 @@
(set! abs magnitude)
+(define (log10 arg)
+ (/ (log arg) (log 10)))
+
;;; {User Settable Hooks}
;;;