Skip to content

GitLab

Commit ba3fb063 authored by Stefan Monnier's avatar Stefan Monnier
Browse files
Options

(Fbyte_code) <unwind-protect>: Use Fprogn rather than 0 and Qnil.

parent ee070873
Hide whitespace changes
Inline Side-by-side
Showing with 1 addition and 2 deletions
src/bytecode.c
View file @ ba3fb063
...@@ -877,9 +877,8 @@ If the third argument is incorrect, Emacs may crash. */) ...@@ -877,9 +877,8 @@ If the third argument is incorrect, Emacs may crash. */)
case Bunwind_protect: case Bunwind_protect:
/* The function record_unwind_protect can GC. */ /* The function record_unwind_protect can GC. */
BEFORE_POTENTIAL_GC (); BEFORE_POTENTIAL_GC ();
record_unwind_protect (0, POP); record_unwind_protect (Fprogn, POP);
AFTER_POTENTIAL_GC (); AFTER_POTENTIAL_GC ();
(specpdl_ptr - 1)->symbol = Qnil;
break; break;
case Bcondition_case: case Bcondition_case:
......
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