[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
(expt 2 -1)
From: |
Aubrey Jaffer |
Subject: |
(expt 2 -1) |
Date: |
Tue, 19 Feb 2002 18:10:54 -0500 (EST) |
address@hidden munspectra]$ guile --version
Guile 1.4
...
address@hidden munspectra]$ guile
guile> (expt 2 -1)
ERROR: In procedure integer-expt:
ERROR: Argument out of range: -1
ABORT: (out-of-range)
is fixed by this patch:
cd ~/ice-9/
diff -c /home/jaffer/ice-9/boot-9.scm\~ /home/jaffer/ice-9/boot-9.scm
*** /home/jaffer/ice-9/boot-9.scm~ Thu Jun 22 13:54:19 2000
--- /home/jaffer/ice-9/boot-9.scm Tue Feb 19 18:09:32 2002
***************
*** 793,799 ****
(define expt
(let ((integer-expt integer-expt))
(lambda (z1 z2)
! (cond ((exact? z2)
(integer-expt z1 z2))
((and (real? z2) (real? z1) (>= z1 0))
($expt z1 z2))
--- 793,800 ----
(define expt
(let ((integer-expt integer-expt))
(lambda (z1 z2)
! (cond ((zero? z1) (if (zero? z2) 1 0))
! ((and (exact? z2) (not (negative? z2)))
(integer-expt z1 z2))
((and (real? z2) (real? z1) (>= z1 0))
($expt z1 z2))
Diff finished at Tue Feb 19 18:09:48
- (expt 2 -1),
Aubrey Jaffer <=