* fns.c (internal_equal): Protect the clause for comparing numbers

	of different tpes with a "#ifdef LISP_FLOAT_TYPE".

diff --git a/src/fns.c b/src/fns.c
index 9f818e8..a67635a 100644 (file)
--- a/src/fns.c
+++ b/src/fns.c
@@ -837,10 +837,12 @@ internal_equal (o1, o2, depth)
 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)
     {