* Rename loop variable in `src/eval.c's unwind_to_catch()
@ 2016-12-28 7:18 Chris Gregory
0 siblings, 0 replies; only message in thread
From: Chris Gregory @ 2016-12-28 7:18 UTC (permalink / raw)
To: emacs-devel
Change last_time to found_catch. This more clearly expresses the
meaning of the loop, rather than just saying that this variable
controls when it breaks, which is obvious.
--
Chris Gregory
diff --git a/src/eval.c b/src/eval.c
index e50e26a..6c24e27 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -1121,7 +1121,7 @@ internal_catch (Lisp_Object tag,
static _Noreturn void
unwind_to_catch (struct handler *catch, Lisp_Object value)
{
- bool last_time;
+ bool found_catch;
eassert (catch->next);
@@ -1138,11 +1138,11 @@ unwind_to_catch (struct handler *catch, Lisp_Object value)
/* Unwind the specpdl stack, and then restore the proper set of
handlers. */
unbind_to (handlerlist->pdlcount, Qnil);
- last_time = handlerlist == catch;
- if (! last_time)
+ found_catch = handlerlist == catch;
+ if (! found_catch)
handlerlist = handlerlist->next;
}
- while (! last_time);
+ while (! found_catch);
eassert (handlerlist == catch);
^ permalink raw reply related [flat|nested] only message in thread
only message in thread, other threads:[~2016-12-28 7:18 UTC | newest]
Thread overview: (only message) (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2016-12-28 7:18 Rename loop variable in `src/eval.c's unwind_to_catch() Chris Gregory
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.