# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 773729068 0
# Node ID 94f524e0d5cd3dfb5c4b90ae5528c6cb60b8d560
# Parent  a5c67d37141bcd0524f92102052e38d8d70da9b6
(readevalloop): Correctly unbind the unwind protect.

diff -r a5c67d37141b -r 94f524e0d5cd src/lread.c
--- 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
 	{