From f9686315d9413050c0954e0bc26140d2c66c948c Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Mon, 5 Sep 2011 23:36:52 +0900 Subject: [PATCH] typo in make-rectangular --- lib/init.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/init.scm b/lib/init.scm index e6db818a..5b6f929e 100644 --- a/lib/init.scm +++ b/lib/init.scm @@ -995,7 +995,7 @@ (* (imag-part z) (imag-part z))))) (define (angle z) (atan (imag-part z) (real-part z))) (define (make-rectangular x y) - (+ x (* z (sqrt -1)))) + (+ x (* y (sqrt -1)))) (define (make-polar r phi) (make-rectangular (* r (cos phi)) (* r (sin phi))))) (else