From 0e3263737c7cb102a98e4395a272093aae3671d1 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 9 Jul 1994 04:44:28 +0000 Subject: [PATCH] (readevalloop): Correctly unbind the unwind protect. --- src/lread.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 { -- 2.39.5