diff options
Diffstat (limited to 'src/lisp.h')
| -rw-r--r-- | src/lisp.h | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/lisp.h b/src/lisp.h index a9104110469..220188cdb87 100644 --- a/src/lisp.h +++ b/src/lisp.h @@ -2803,6 +2803,12 @@ CHECK_NATNUM (Lisp_Object x) CHECK_TYPE (INTEGERP (x), Qinteger_or_marker_p, x); \ } while (false) +INLINE double +XFLOATINT (Lisp_Object n) +{ + return FLOATP (n) ? XFLOAT_DATA (n) : XINT (n); +} + INLINE void CHECK_NUMBER_OR_FLOAT (Lisp_Object x) { |