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

The imaginary part of a non-complex is exact 0.

Browse source
This commit is contained in:
Alex Shinn 2012-12-21 21:39:23 +09:00
parent e4b86a5807
commit 11cdc6930d
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/init-7.scm
View file

@ -1080,7 +1080,7 @@
(cond-expand
(complex
(define (real-part z) (if (%complex? z) (complex-real z) z))
(define (imag-part z) (if (%complex? z) (complex-imag z) 0.0))
(define (imag-part z) (if (%complex? z) (complex-imag z) 0))
(define (magnitude z)
(sqrt (+ (* (real-part z) (real-part z))
(* (imag-part z) (imag-part z)))))