[jaffer@aubrey munspectra]$ guile --version
Guile 1.4
...
[jaffer@aubrey 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
_______________________________________________
Bug-guile mailing list
[EMAIL PROTECTED]
http://mail.gnu.org/mailman/listinfo/bug-guile
