Fix another oversight in thread.c.

diff --git a/src/thread.c b/src/thread.c
index d19172dcbe52809d6f7c353b1ba02ec033b42b2e..709e50e029a457c807a39c86d61d7d65b10ce749 100644 (file)
--- a/src/thread.c
+++ b/src/thread.c
@@ -215,7 +215,7 @@ When the function exits, the thread dies.  */)
 
   for (p = specpdl; p != specpdl_ptr; ++p)
     {
-      if (p->func)
+      if (!p->func)
        {
          Lisp_Object sym = p->symbol;
          if (!SYMBOLP (sym))