Fix specpdl loop typo.

diff --git a/src/data.c b/src/data.c
index 211a646..b81d1b8 100644 (file)
--- 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 5fa9a94..b4ef785 100644 (file)
--- 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)))