(expt 2 -1)

[Aubrey Jaffer]

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