Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-20 14:19:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

typo in make-rectangular

Browse source
This commit is contained in:
Alex Shinn 2011-09-05 23:36:52 +09:00
parent 4e60bba376
commit f9686315d9
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.scm
View file

@ -995,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 (sqrt -1)))) (+ x (* y (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