From cd71cbe5a3c6e5ac3737f482b687177fb047220a Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Mon, 8 Jul 2002 07:35:55 +0000
Subject: [PATCH] Fix square root.

---
 src/c/num_sfun.d | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/c/num_sfun.d b/src/c/num_sfun.d
index ac080e05e..0fc344cad 100644
--- a/src/c/num_sfun.d
+++ b/src/c/num_sfun.d
@@ -201,7 +201,7 @@ number_sqrt(cl_object x)
 	if (type_of(x) == t_complex)
 		goto COMPLEX;
 	if (number_minusp(x))
-		goto COMPLEX;
+		return make_complex(MAKE_FIXNUM(0), number_sqrt(number_negate(x)));
 	switch (type_of(x)) {
 	case t_fixnum:
 	case t_bignum: