# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 730392117 0
# Node ID 51be204d02a09b0c01f556766ffa7485a1ebefa6
# Parent  699ae3079c092058d938707b6450e5a79aba551f
	* fns.c (Fequal): Call internal_equal to recurse on elements of
	lists and vectors, not Fequal.

diff -r 699ae3079c09 -r 51be204d02a0 src/fns.c
--- a/src/fns.c	Mon Feb 22 14:41:26 1993 +0000
+++ b/src/fns.c	Mon Feb 22 14:41:57 1993 +0000
@@ -847,7 +847,7 @@
   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 @@
 	  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;