Re: (expt 2 -1)

[Marius Vollmer]

Aubrey Jaffer <address@hidden> writes:

> 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:

Thanks!  We already have a fixed version of expt:

    (define expt
      (let ((integer-expt integer-expt))
        (lambda (z1 z2)
          (cond ((integer? z2)
                 (if (>= z2 0)
                     (integer-expt z1 z2)
                     (/ 1 (integer-expt z1 (- z2)))))
                ((and (real? z2) (real? z1) (>= z1 0))
                 ($expt z1 z2))
                (else
                 (exp (* z2 (log z1))))))))