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 | 79d040ea94b882cee271b5b35b41a09133b116a0 (patch) | |
| tree | 353d92a025ad772f3d712069dcebdc8d1f7656a9 /src/fns.c | |
| parent | 1bd67d5af1af5e43afed4505c72fcad6cc78d06c (diff) | |
| download | emacs-79d040ea94b882cee271b5b35b41a09133b116a0.tar.gz | |
* fns.c (Fequal): Call internal_equal to recurse on elements of
lists and vectors, not Fequal.
Diffstat (limited to 'src/fns.c')
| -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; |