si_nan: return correct value (typo)

This commit is contained in:
Daniel Kochmański 2016-11-18 14:58:15 +01:00
parent f70f46a1b7
commit dd5a189a9d

View file

@ -922,6 +922,6 @@ cl_object
si_nan() {
cl_object x = ecl_alloc_object(t_doublefloat);
ecl_double_float(x) = NAN;
return NAN;
return x;
}
#endif /* ECL_IEEE_FP */