# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1051748551 0
# Node ID a32b154ea162cb9a76f3a4cfcedcda1d1bd9816a
# Parent  7b1710f096a3f09f5a3e18fd62782dedfde00af9
(Fbyte_code) <unwind-protect>: Use Fprogn rather than 0 and Qnil.

diff -r 7b1710f096a3 -r a32b154ea162 src/bytecode.c
--- a/src/bytecode.c	Thu May 01 00:00:25 2003 +0000
+++ b/src/bytecode.c	Thu May 01 00:22:31 2003 +0000
@@ -877,9 +877,8 @@
 	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: