diff options
Diffstat (limited to 'src/bytecode.c')
| -rw-r--r-- | src/bytecode.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/bytecode.c b/src/bytecode.c index 1ee5ae39557..98acc336db7 100644 --- a/src/bytecode.c +++ b/src/bytecode.c | |||
| @@ -877,9 +877,8 @@ If the third argument is incorrect, Emacs may crash. */) | |||
| 877 | case Bunwind_protect: | 877 | case Bunwind_protect: |
| 878 | /* The function record_unwind_protect can GC. */ | 878 | /* The function record_unwind_protect can GC. */ |
| 879 | BEFORE_POTENTIAL_GC (); | 879 | BEFORE_POTENTIAL_GC (); |
| 880 | record_unwind_protect (0, POP); | 880 | record_unwind_protect (Fprogn, POP); |
| 881 | AFTER_POTENTIAL_GC (); | 881 | AFTER_POTENTIAL_GC (); |
| 882 | (specpdl_ptr - 1)->symbol = Qnil; | ||
| 883 | break; | 882 | break; |
| 884 | 883 | ||
| 885 | case Bcondition_case: | 884 | case Bcondition_case: |