mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2025-12-31 06:40:50 -08:00
Code Issues Projects Releases Packages Wiki Activity

There is not finitel(), so just use coercion.

Browse source
This commit is contained in:
jjgarcia 2008-06-28 08:22:14 +00:00
parent 0e657faf79
commit 90e936d85c
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/number.d
View file

@ -203,7 +203,7 @@ make_longfloat(long double f)
if (isnanl(f)) {
cl_error(1, @'division-by-zero');
}
if (!finitel(f)) {
if (!finite(f)) {
cl_error(1, @'floating-point-overflow');
}
x = cl_alloc_object(t_longfloat);