Mercurial > emacs

changeset 1919:51be204d02a0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* fns.c (Fequal): Call internal_equal to recurse on elements of lists and vectors, not Fequal.
author Jim Blandy <jimb@redhat.com>
date Mon, 22 Feb 1993 14:41:57 +0000
parents 699ae3079c09
children ac5e559a819a
files src/fns.c
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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;