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