Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-21 06:39:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

fixes from doug currie when complex support not compiled in

Browse source
This commit is contained in:
Alex Shinn 2011-09-03 14:58:30 +09:00
parent 5f7a38da19
commit 5d92523bf4
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lib/init.scm
View file

@ -894,7 +894,9 @@
(cond-expand (cond-expand
(complex (complex
(define (exact-complex? x) (define (exact-complex? x)
(and (%complex? x) (exact? (complex-real x)) (exact? (complex-imag x)))))) (and (%complex? x) (exact? (complex-real x)) (exact? (complex-imag x)))))
(else
(define (exact-complex? x) #f)))
(cond-expand (cond-expand
(ratios (ratios
@ -993,7 +995,7 @@
(* (imag-part z) (imag-part z))))) (* (imag-part z) (imag-part z)))))
(define (angle z) (atan (imag-part z) (real-part z))) (define (angle z) (atan (imag-part z) (real-part z)))
(define (make-rectangular x y) (define (make-rectangular x y)
(+ x (* z 0+1i))) (+ x (* z (sqrt -1))))
(define (make-polar r phi) (define (make-polar r phi)
(make-rectangular (* r (cos phi)) (* r (sin phi))))) (make-rectangular (* r (cos phi)) (* r (sin phi)))))
(else (else