# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 728017554 0
# Node ID 001382595e48cb619277d5268b484dc19e282eea
# Parent  04fb1d3d699252ace5b3716a4916049e9f8b0d93
	* fns.c (internal_equal): Protect the clause for comparing numbers
	of different tpes with a "#ifdef LISP_FLOAT_TYPE".

diff -r 04fb1d3d6992 -r 001382595e48 src/fns.c
--- 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)
     {