Aubrey Jaffer <[EMAIL PROTECTED]> writes:
> [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:
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))))))))
_______________________________________________
Bug-guile mailing list
[EMAIL PROTECTED]
http://mail.gnu.org/mailman/listinfo/bug-guile
