Commit 7b8f3b29 authored by Jim Blandy's avatar Jim Blandy
Browse files

* fns.c (Fequal): Call internal_equal to recurse on elements of

	lists and vectors, not Fequal.
parent f8d83099
......@@ -847,7 +847,7 @@ internal_equal (o1, o2, depth)
if (XTYPE (o1) == Lisp_Cons)
{
Lisp_Object v1;
v1 = Fequal (Fcar (o1), Fcar (o2), depth + 1);
v1 = internal_equal (Fcar (o1), Fcar (o2), depth + 1);
if (NILP (v1))
return v1;
o1 = Fcdr (o1), o2 = Fcdr (o2);
......@@ -870,7 +870,7 @@ internal_equal (o1, o2, depth)
Lisp_Object v, v1, v2;
v1 = XVECTOR (o1)->contents [index];
v2 = XVECTOR (o2)->contents [index];
v = Fequal (v1, v2, depth + 1);
v = internal_equal (v1, v2, depth + 1);
if (NILP (v)) return v;
}
return Qt;
......
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