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

diff --git a/src/bytecode.c b/src/bytecode.c
index 1ee5ae395578235afeb7caec5a2316bfad0b115d..98acc336db7c2982521888b1c62c22f4fbe62b72 100644 (file)
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -877,9 +877,8 @@ If the third argument is incorrect, Emacs may crash.  */)
        case Bunwind_protect:
          /* The function record_unwind_protect can GC.  */
          BEFORE_POTENTIAL_GC ();
-         record_unwind_protect (0, POP);
+         record_unwind_protect (Fprogn, POP);
          AFTER_POTENTIAL_GC ();
-         (specpdl_ptr - 1)->symbol = Qnil;
          break;
 
        case Bcondition_case: