mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-03 11:33:37 +00:00
Code Issues Releases Activity

(make_fixnum_or_float): Coerce double to int explicitly.

Browse Source
This commit is contained in:
Stefan Monnier 2001-10-25 05:13:57 +00:00
parent e1010ebe16
commit 5fbf2e842d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/lisp.h
View File

@ -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)))