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

of different tpes with a "#ifdef LISP_FLOAT_TYPE".

* fns.c (internal_equal): Protect the clause for comparing numbers
of different tpes with a "#ifdef LISP_FLOAT_TYPE".
31ef7f7a · Jim Blandy · dbc4e1c1 · 31ef7f7a
Commit 31ef7f7a authored Jan 26, 1993 by Jim Blandy
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 0 deletions

src/fns.c src/fns.c +2 -0

No files found.
--- 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)
    {