From 6516071898bd7907924f38456a089ed229a021bb Mon Sep 17 00:00:00 2001 From: jjgarcia Date: Wed, 29 Jun 2005 08:16:07 +0000 Subject: [PATCH] Comparison between fixnums and floats is done without loss of precision --- src/c/num_comp.d | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/c/num_comp.d b/src/c/num_comp.d index 60b7ee046..b6e330efa 100644 --- a/src/c/num_comp.d +++ b/src/c/num_comp.d @@ -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: