conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fixed bug 159865: Expt fails on floats and rationals.

This commit is contained in:
Abdulaziz Ghuloum 2007-11-04 10:24:08 -05:00
parent e4e9418dae
commit 81f6439b3c
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
scheme/ikarus.numerics.ss
View File

@ -306,7 +306,8 @@
(define (flexpt x y) (define (flexpt x y)
(if (flonum? x) (if (flonum? x)
(if (flonum? y) (if (flonum? y)
(let ([y^ ($flonum->exact y)]) (let ([y^ ($flonum->exact y)])
;;; FIXME: performance bottleneck?
(cond (cond
[(fixnum? y^) (inexact (expt x y^))] [(fixnum? y^) (inexact (expt x y^))]
[(bignum? y^) (inexact (expt x y^))] [(bignum? y^) (inexact (expt x y^))]
@ -1668,6 +1669,8 @@
(/ 1 (expt n (- m))))] (/ 1 (expt n (- m))))]
[else [else
(error 'expt "result is too big to compute" n m)])] (error 'expt "result is too big to compute" n m)])]
[(flonum? m) (flexpt (inexact n) m)]
[(ratnum? m) (flexpt (inexact n) (inexact m))]
[else (error 'expt "not a number" m)]))) [else (error 'expt "not a number" m)])))
(define quotient (define quotient