Commit 31ef7f7a authored by Jim Blandy's avatar Jim Blandy
Browse files

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

	of different tpes with a "#ifdef LISP_FLOAT_TYPE".
parent dbc4e1c1
......@@ -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)
{
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment