martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(isnan): New macro.

Browse Source 
(float_arith_driver): min and max yield NaN if any argument is a NaN.
This commit is contained in:
Karl Heuer
1994-03-04 21:21:08 +00:00
parent cffa74ea6c
commit 1a2f2d332e
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/data.c
View File

@@ -1650,6 +1650,10 @@ arith_driver (code, nargs, args)
}
#ifdef LISP_FLOAT_TYPE
#undef isnan
#define isnan(x) ((x) != (x))
Lisp_Object
float_arith_driver (accum, argnum, code, nargs, args)
double accum;
@@ -1707,11 +1711,11 @@ float_arith_driver (accum, argnum, code, nargs, args)
case Alogxor:
return wrong_type_argument (Qinteger_or_marker_p, val);
case Amax:
if (!argnum || next > accum)
if (!argnum || isnan (next) || next > accum)
accum = next;
break;
case Amin:
if (!argnum || next < accum)
if (!argnum || isnan (next) || next < accum)
accum = next;
break;
}