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

Comparison between fixnums and floats is done without loss of precision

Browse source
This commit is contained in:
jjgarcia 2005-06-29 08:16:07 +00:00
parent b6e8917728
commit 6516071898
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_comp.d
View file

@ -45,7 +45,7 @@ number_equalp(cl_object x, cl_object y)
case t_ratio:
return 0;
case t_shortfloat:
return fix(x) == sf(y);
return fix(x) == (double)sf(y);
case t_longfloat:
return fix(x) == lf(y);
case t_complex: