From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 25 Oct 2001 05:13:57 +0000 (+0000)
Subject: (make_fixnum_or_float): Coerce double to int explicitly.
X-Git-Tag: ttn-vms-21-2-B4~19175
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5fbf2e842d97a96635a1ab1947ee59045c3fb76c;p=emacs.git

(make_fixnum_or_float): Coerce double to int explicitly.
---

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