From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 9 Jul 1994 04:44:28 +0000 (+0000)
Subject: (readevalloop): Correctly unbind the unwind protect.
X-Git-Tag: emacs-19.34~7671
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0e3263737c7cb102a98e4395a272093aae3671d1;p=emacs.git

(readevalloop): Correctly unbind the unwind protect.
---

diff --git a/src/lread.c b/src/lread.c
index 2e8d135ba32..f720c76c458 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -723,9 +723,10 @@ readevalloop (readcharfun, stream, sourcename, evalfun, printflag)
 
       if (!NILP (Vpurify_flag) && c == '(')
 	{
+	  int count1 = specpdl_ptr - specpdl;
 	  record_unwind_protect (unreadpure, Qnil);
 	  val = read_list (-1, readcharfun);
-	  unbind_to (count + 1, Qnil);
+	  unbind_to (count1, Qnil);
 	}
       else
 	{