Mercurial > emacs

diff src/lread.c @ 8182:94f524e0d5cd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(readevalloop): Correctly unbind the unwind protect.
author Richard M. Stallman <rms@gnu.org>
date Sat, 09 Jul 1994 04:44:28 +0000
parents dc62b2daf48e
children ccd3c3ca2aef
line wrap: on
line diff
--- a/src/lread.c	Fri Jul 08 21:26:56 1994 +0000
+++ b/src/lread.c	Sat Jul 09 04:44:28 1994 +0000
@@ -723,9 +723,10 @@
 
       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
 	{