From bc9851415e121c2c0416252c97e23add9d80c482 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Wed, 21 Sep 2011 13:15:56 -0700 Subject: [PATCH] Fix specpdl loop typo. --- src/data.c | 2 +- src/eval.c | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/data.c b/src/data.c index 211a64661ac..b81d1b88545 100644 --- a/src/data.c +++ b/src/data.c @@ -1094,7 +1094,7 @@ let_shadows_global_binding_p (Lisp_Object symbol) { struct specbinding *p; - for (p = specpdl_ptr; p > specpdl; p) + for (p = specpdl_ptr; p > specpdl; ) if ((--p)->func == NULL && EQ (p->symbol, symbol)) return 1; diff --git a/src/eval.c b/src/eval.c index 5fa9a945ef5..b4ef785b3c7 100644 --- a/src/eval.c +++ b/src/eval.c @@ -758,7 +758,7 @@ The return value is BASE-VARIABLE. */) { struct specbinding *p; - for (p = specpdl_ptr; p > specpdl; p) + for (p = specpdl_ptr; p > specpdl; ) if ((--p)->func == NULL && (EQ (new_alias, CONSP (p->symbol) ? XCAR (p->symbol) : p->symbol))) -- 2.39.2