diff options
| author | Stefan Monnier | 2001-10-25 05:13:57 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2001-10-25 05:13:57 +0000 |
| commit | 5fbf2e842d97a96635a1ab1947ee59045c3fb76c (patch) | |
| tree | fcd324ce8be3fd7d2796de15c9e0ea66b545497e /src | |
| parent | e1010ebe167d983d2e2c8ea1646f0369834ace13 (diff) | |
| download | emacs-5fbf2e842d97a96635a1ab1947ee59045c3fb76c.tar.gz emacs-5fbf2e842d97a96635a1ab1947ee59045c3fb76c.zip | |
(make_fixnum_or_float): Coerce double to int explicitly.
Diffstat (limited to 'src')
| -rw-r--r-- | src/lisp.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/lisp.h b/src/lisp.h index f913fe1998e..942bd5e9815 100644 --- a/src/lisp.h +++ b/src/lisp.h | |||
| @@ -3153,4 +3153,4 @@ extern Lisp_Object Vdirectory_sep_char; | |||
| 3153 | fixnum. */ | 3153 | fixnum. */ |
| 3154 | 3154 | ||
| 3155 | #define make_fixnum_or_float(val) \ | 3155 | #define make_fixnum_or_float(val) \ |
| 3156 | (FIXNUM_OVERFLOW_P (val) ? make_float (val) : make_number (val)) | 3156 | (FIXNUM_OVERFLOW_P (val) ? make_float (val) : make_number ((int)(val))) |