diff options
| author | Jim Blandy <jimb@redhat.com> | 1993-02-22 14:41:57 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1993-02-22 14:41:57 +0000 |
| commit | 7b8f3b2953f848e6b214414767b64ed42fdeafc8 (patch) | |
| tree | eb699042a54fe5358dadfb137854028119d999d4 | |
| parent | f8d830994a14d0247443b8f0e567c6f18aee5dbd (diff) | |
| download | emacs-7b8f3b2953f848e6b214414767b64ed42fdeafc8.tar.gz | |
* fns.c (Fequal): Call internal_equal to recurse on elements of
lists and vectors, not Fequal.
| -rw-r--r-- | src/fns.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/fns.c b/src/fns.c index a67635a249a..9165b98e830 100644 --- a/src/fns.c +++ b/src/fns.c @@ -847,7 +847,7 @@ do_cdr: 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 @@ do_cdr: 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; |