Mercurial > emacs
comparison src/lread.c @ 8182:94f524e0d5cd
(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 |
comparison
equal
deleted
inserted
replaced
| 8181:a5c67d37141b | 8182:94f524e0d5cd |
|---|---|
| 721 if (c < 0) break; | 721 if (c < 0) break; |
| 722 if (c == ' ' || c == '\t' || c == '\n' || c == '\f') continue; | 722 if (c == ' ' || c == '\t' || c == '\n' || c == '\f') continue; |
| 723 | 723 |
| 724 if (!NILP (Vpurify_flag) && c == '(') | 724 if (!NILP (Vpurify_flag) && c == '(') |
| 725 { | 725 { |
| 726 int count1 = specpdl_ptr - specpdl; | |
| 726 record_unwind_protect (unreadpure, Qnil); | 727 record_unwind_protect (unreadpure, Qnil); |
| 727 val = read_list (-1, readcharfun); | 728 val = read_list (-1, readcharfun); |
| 728 unbind_to (count + 1, Qnil); | 729 unbind_to (count1, Qnil); |
| 729 } | 730 } |
| 730 else | 731 else |
| 731 { | 732 { |
| 732 UNREAD (c); | 733 UNREAD (c); |
| 733 val = read0 (readcharfun); | 734 val = read0 (readcharfun); |