diff options
Diffstat (limited to 'src/floatfns.c')
| -rw-r--r-- | src/floatfns.c | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/floatfns.c b/src/floatfns.c index 6113758f964..d7514eca886 100644 --- a/src/floatfns.c +++ b/src/floatfns.c @@ -41,6 +41,14 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ # define isnan(x) ((x) != (x)) #endif +/* Check that X is a floating point number. */ + +static void +CHECK_FLOAT (Lisp_Object x) +{ + CHECK_TYPE (FLOATP (x), Qfloatp, x); +} + /* Extract a Lisp number as a `double', or signal an error. */ double |