diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2017-03-02 09:21:19 -0800 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2017-03-02 09:22:17 -0800 |
| commit | d0d26c1379598983d2163deb13ba8ab13b14ba2c (patch) | |
| tree | 93e7cef298261c30eac66ec00b4250076d015419 /src/floatfns.c | |
| parent | 4e2622bf0d63c40f447d44e6401ea054ef55b261 (diff) | |
| download | emacs-d0d26c1379598983d2163deb13ba8ab13b14ba2c.tar.gz emacs-d0d26c1379598983d2163deb13ba8ab13b14ba2c.tar.bz2 emacs-d0d26c1379598983d2163deb13ba8ab13b14ba2c.zip | |
Remove XFLOATINT
* src/lisp.h (XFLOATINT): Remove this alias for extract_float.
All callers changed to use extract_float.
* src/frame.h (NUMVAL): Now an inline function, not a macro.
Diffstat (limited to 'src/floatfns.c')
| -rw-r--r-- | src/floatfns.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/floatfns.c b/src/floatfns.c index 96711faff62..737fb22091e 100644 --- a/src/floatfns.c +++ b/src/floatfns.c @@ -178,7 +178,7 @@ The function returns the cons cell (SGNFCAND . EXP). If X is zero, both parts (SGNFCAND and EXP) are zero. */) (Lisp_Object x) { - double f = XFLOATINT (x); + double f = extract_float (x); int exponent; double sgnfcand = frexp (f, &exponent); return Fcons (make_float (sgnfcand), make_number (exponent)); @@ -191,7 +191,7 @@ EXPONENT must be an integer. */) { CHECK_NUMBER (exponent); int e = min (max (INT_MIN, XINT (exponent)), INT_MAX); - return make_float (ldexp (XFLOATINT (sgnfcand), e)); + return make_float (ldexp (extract_float (sgnfcand), e)); } DEFUN ("exp", Fexp, Sexp, 1, 1, 0, |