From 0ac6420c88f1acfa3663e9c9b34b467219981cd0 Mon Sep 17 00:00:00 2001 From: Rob Browning Date: Sun, 15 Sep 2002 01:19:17 +0000 Subject: [PATCH] * boot-9.scm (sqrt): minor indentation fix. --- ice-9/boot-9.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index 5fd5b638e..71bc2bff0 100644 --- a/ice-9/boot-9.scm +++ b/ice-9/boot-9.scm @@ -680,7 +680,7 @@ (define (sqrt z) (if (real? z) (if (negative? z) (make-rectangular 0 ($sqrt (- z))) - ($sqrt z)) + ($sqrt z)) (make-polar ($sqrt (magnitude z)) (/ (angle z) 2)))) (define expt