diff options
author | Gary Houston <ghouston@arglist.com> | 1997-04-12 19:47:09 +0000 |
---|---|---|
committer | Gary Houston <ghouston@arglist.com> | 1997-04-12 19:47:09 +0000 |
commit | 6549522160a5bd3594ccc47f95ea9ac8698fb7e5 (patch) | |
tree | 45b20674fef03eacd4d394b12e19817f982d4668 | |
parent | 4c1feaa596bc4d25fb4cfb9c4ee73fd790ded643 (diff) | |
download | guile-6549522160a5bd3594ccc47f95ea9ac8698fb7e5.tar.gz |
* boot-9.scm (log10): defined.
-rw-r--r-- | ice-9/ChangeLog | 4 | ||||
-rw-r--r-- | ice-9/boot-9.scm | 3 |
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} ;;; |