changeset 50760:a32b154ea162

(Fbyte_code) <unwind-protect>: Use Fprogn rather than 0 and Qnil.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Thu, 01 May 2003 00:22:31 +0000
parents 7b1710f096a3
children 3afa0d82e92e
files src/bytecode.c
diffstat 1 files changed, 1 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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: