si_nan: return value (bugfix)

This commit is contained in:
Daniel Kochmański 2016-11-18 14:50:56 +01:00
parent 6b07439dfe
commit f70f46a1b7

View file

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