From 5fbf2e842d97a96635a1ab1947ee59045c3fb76c Mon Sep 17 00:00:00 2001
From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 25 Oct 2001 05:13:57 +0000
Subject: [PATCH] (make_fixnum_or_float): Coerce double to int explicitly.

---
 src/lisp.h | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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