# HG changeset patch
# User ben
# Date 1045997885 0
# Node ID 0e48d8b45bdb94f652bdcfb64b01c562840ef584
# Parent  4f69b7a5bf9ff7ed065a77a9deab2837393215b5
[xemacs-hg @ 2003-02-23 10:58:01 by ben]
another boo-boo


eval.c: damn those off-by-one errors.

diff -r 4f69b7a5bf9f -r 0e48d8b45bdb src/ChangeLog
--- a/src/ChangeLog	Sat Feb 22 22:53:06 2003 +0000
+++ b/src/ChangeLog	Sun Feb 23 10:58:05 2003 +0000
@@ -1,3 +1,8 @@
+2003-02-23  Ben Wing  <ben@xemacs.org>
+
+	* eval.c (unbind_to_hairy):
+	damn those off-by-one errors.
+
 2003-02-21  Ben Wing  <ben@xemacs.org>
 
 	* redisplay.c:
diff -r 4f69b7a5bf9f -r 0e48d8b45bdb src/eval.c
--- 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