changeset 40289:c7285f337403

(make_fixnum_or_float): Coerce double to int explicitly.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Thu, 25 Oct 2001 05:13:57 +0000
parents fca327b68ccc
children 72bbea2ef358
files src/lisp.h
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/lisp.h	Thu Oct 25 04:20:08 2001 +0000
+++ b/src/lisp.h	Thu Oct 25 05:13:57 2001 +0000
@@ -3153,4 +3153,4 @@
    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)))