Mercurial > emacs

changeset 1822:001382595e48

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* fns.c (internal_equal): Protect the clause for comparing numbers of different tpes with a "#ifdef LISP_FLOAT_TYPE".
author Jim Blandy <jimb@redhat.com>
date Tue, 26 Jan 1993 03:05:54 +0000
parents 04fb1d3d6992
children c97e3a38444c
files src/fns.c
diffstat 1 files changed, 2 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/src/fns.c	Tue Jan 26 01:58:16 1993 +0000
+++ b/src/fns.c	Tue Jan 26 03:05:54 1993 +0000
@@ -837,10 +837,12 @@
 do_cdr:
   QUIT;
   if (EQ (o1, o2)) return Qt;
+#ifdef LISP_FLOAT_TYPE
   if (NUMBERP (o1) && NUMBERP (o2))
     {
       return (extract_float (o1) == extract_float (o2)) ? Qt : Qnil;
     }
+#endif
   if (XTYPE (o1) != XTYPE (o2)) return Qnil;
   if (XTYPE (o1) == Lisp_Cons)
     {