# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 1002814633 0
# Node ID 51f74f0f7fceab2a9f5f6cb9682b42134f5ce1a5
# Parent  03dae03b95d97e875fd3e52465aa0633ee4f7005
(make_fixnum_or_float): New macro.

diff -r 03dae03b95d9 -r 51f74f0f7fce src/lisp.h
--- a/src/lisp.h	Thu Oct 11 12:58:56 2001 +0000
+++ b/src/lisp.h	Thu Oct 11 15:37:13 2001 +0000
@@ -3086,3 +3086,9 @@
 #endif
 #define min(a, b)	((a) < (b) ? (a) : (b))
 #define max(a, b)	((a) > (b) ? (a) : (b))
+
+/* Return a fixnum or float, depending on whether VAL fits in a Lisp
+   fixnum.  */
+
+#define make_fixnum_or_float(val) \
+   (FIXNUM_OVERFLOW_P (val) ? make_float (val) : make_number (val))