diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-10-25 05:13:57 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-10-25 05:13:57 +0000 |
| commit | 5fbf2e842d97a96635a1ab1947ee59045c3fb76c (patch) | |
| tree | fcd324ce8be3fd7d2796de15c9e0ea66b545497e | |
| parent | e1010ebe167d983d2e2c8ea1646f0369834ace13 (diff) | |
| download | emacs-5fbf2e842d97a96635a1ab1947ee59045c3fb76c.tar.gz emacs-5fbf2e842d97a96635a1ab1947ee59045c3fb76c.tar.bz2 emacs-5fbf2e842d97a96635a1ab1947ee59045c3fb76c.zip | |
(make_fixnum_or_float): Coerce double to int explicitly.
| -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; fixnum. */ #define make_fixnum_or_float(val) \ - (FIXNUM_OVERFLOW_P (val) ? make_float (val) : make_number (val)) + (FIXNUM_OVERFLOW_P (val) ? make_float (val) : make_number ((int)(val))) |