mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-03 11:01:03 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fix square root.

Browse source
This commit is contained in:
jjgarcia 2002-07-08 07:35:55 +00:00
parent b7cd0209b8
commit cd71cbe5a3
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/num_sfun.d
View file

@ -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: