suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix more r6rs expt problems on 0 or 0.0 base

Browse Source 
svn: r11371
This commit is contained in:
Matthew Flatt 2008-08-21 19:50:28 +00:00
parent c170f390a7
commit 6c89ae4f09
1 changed files with 20 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
collects/rnrs/base-6.ss
View File

@ -302,12 +302,26 @@
[(n m) (/ (log n) (log m))])) [(n m) (/ (log n) (log m))]))
(define (r6rs:expt base power) (define (r6rs:expt base power)
(if (and (or (eq? base 0) (cond
(eq? base 1)) [(and (number? base)
(number? power) (zero? base)
(inexact? power)) (number? power))
(expt (exact->inexact base) power) (if (zero? power)
(expt base power))) (if (and (eq? base 0)
(exact? power))
1
1.0)
(if (positive? (real-part power))
(if (and (eq? base 0)
(exact? power))
0
0.0)
(expt base power)))]
[(and (eq? base 1)
(number? power)
(inexact? power))
(expt (exact->inexact base) power)]
[else (expt base power)]))
(define (r6rs:angle n) (define (r6rs:angle n)
; because `angle' produces exact 0 for reals: ; because `angle' produces exact 0 for reals: