mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-30 08:50:23 +02:00
Code Activity

(log, log10, exp, sqrt): Remove, now in libguile/numbers.c.

Browse source
This commit is contained in:
Kevin Ryde 2006-09-22 23:35:51 +00:00
parent de7478b490
commit 1f28c41667
1 changed files with 0 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

18
ice-9/boot-9.scm
View file

@ -786,21 +786,6 @@
;;; See the file `COPYING' for terms applying to this program. ;;; See the file `COPYING' for terms applying to this program.
;;; ;;;
(define (exp z)
(if (real? z) ($exp z)
(make-polar ($exp (real-part z)) (imag-part z))))
(define (log z)
(if (and (real? z) (>= z 0))
($log z)
(make-rectangular ($log (magnitude z)) (angle z))))
(define (sqrt z)
(if (real? z)
(if (negative? z) (make-rectangular 0 ($sqrt (- z)))
($sqrt z))
(make-polar ($sqrt (magnitude z)) (/ (angle z) 2))))
(define expt (define expt
(let ((integer-expt integer-expt)) (let ((integer-expt integer-expt))
(lambda (z1 z2) (lambda (z1 z2)
@ -875,9 +860,6 @@
(/ (log (/ (- +i z) (+ +i z))) +2i)) (/ (log (/ (- +i z) (+ +i z))) +2i))
($atan2 z (car y)))) ($atan2 z (car y))))
(define (log10 arg)
(/ (log arg) (log 10)))
;;; {Reader Extensions} ;;; {Reader Extensions}