Mercurial > emacs

diff src/data.c @ 3591:507f64624555

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Apply typo patches from Paul Eggert.
author Jim Blandy <jimb@redhat.com>
date Wed, 09 Jun 1993 11:59:12 +0000
parents 36fe8e57f020
children f42eaf84478f
line wrap: on
line diff
--- a/src/data.c	Wed Jun 09 11:33:38 1993 +0000
+++ b/src/data.c	Wed Jun 09 11:59:12 1993 +0000
@@ -1215,9 +1215,9 @@
 indirect_function (object)
   register Lisp_Object object;
 {
-  Lisp_Object tortise, hare;
+  Lisp_Object tortoise, hare;
 
-  hare = tortise = object;
+  hare = tortoise = object;
 
   for (;;)
     {
@@ -1228,9 +1228,9 @@
 	break;
       hare = XSYMBOL (hare)->function;
 
-      tortise = XSYMBOL (tortise)->function;
+      tortoise = XSYMBOL (tortoise)->function;
 
-      if (EQ (hare, tortise))
+      if (EQ (hare, tortoise))
 	Fsignal (Qcyclic_function_indirection, Fcons (object, Qnil));
     }