Mercurial > hg > xemacs-beta

diff src/lisp.h @ 1104:8b464283e891

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-11-12 18:58:13 by james] Unconditionally compile the LISP_FLOAT_TYPE code. Remove all !LISP_FLOAT_TYPE code and the LISP_FLOAT_TYPE identifier itself.
author james
date Tue, 12 Nov 2002 18:58:41 +0000
parents 25e260cb7994
children 184461bc8de4
line wrap: on
line diff
--- a/src/lisp.h	Tue Nov 12 03:57:48 2002 +0000
+++ b/src/lisp.h	Tue Nov 12 18:58:41 2002 +0000
@@ -2369,8 +2369,6 @@
 
 /*------------------------------ float ---------------------------------*/
 
-#ifdef LISP_FLOAT_TYPE
-
 /* Note: the 'unused_next_' field exists only to ensure that the
    `next' pointer fits within the structure, for the purposes of the
    free list.  This makes a difference in the unlikely case of
@@ -2407,20 +2405,6 @@
 
 # define INT_OR_FLOATP(x) (INTP (x) || FLOATP (x))
 
-#else /* not LISP_FLOAT_TYPE */
-
-#define XFLOAT(x) --- error!  No float support. ---
-#define FLOATP(x) 0
-#define CHECK_FLOAT(x) --- error!  No float support. ---
-#define CONCHECK_FLOAT(x) --- error!  No float support. ---
-
-#define XFLOATINT(n) XINT(n)
-#define CHECK_INT_OR_FLOAT CHECK_INT
-#define CONCHECK_INT_OR_FLOAT CONCHECK_INT
-#define INT_OR_FLOATP(x) INTP (x)
-
-#endif /* not LISP_FLOAT_TYPE */
-
 /*-------------------------------- int ---------------------------------*/
 
 #define ZEROP(x) EQ (x, Qzero)