Mercurial > hg > xemacs-beta

diff src/eval.c @ 1322:0e48d8b45bdb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2003-02-23 10:58:01 by ben] another boo-boo eval.c: damn those off-by-one errors.
author ben
date Sun, 23 Feb 2003 10:58:05 +0000
parents b531bf8658e9
children 1b0339b048ce
line wrap: on
line diff
--- a/src/eval.c	Sat Feb 22 22:53:06 2003 +0000
+++ b/src/eval.c	Sun Feb 23 10:58:05 2003 +0000
@@ -5962,7 +5962,7 @@
       /* Do this check BEFORE decrementing the values below, because once
 	 they're decremented, GC protection is lost on
 	 specpdl_ptr->old_value. */
-      if (specpdl_ptr->func == Fprogn)
+      if (specpdl_ptr[-1].func == Fprogn)
 	{
 	  /* Allow QUIT within unwind-protect routines, but defer any
 	     existing QUIT until afterwards.  Only do this, however, for