Commit 0e326373 authored by Richard M. Stallman's avatar Richard M. Stallman

(readevalloop): Correctly unbind the unwind protect.

parent c7e62660
......@@ -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
{
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment