# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1051817885 0
# Node ID cddacf81f5e7439cbb5a408cc020ffce00cd378e
# Parent  b14367118d5ac6818337bba521d41b5726764fce
(Funwind_protect): Use func = Fprogn rather symbol = Qnil.

diff -r b14367118d5a -r cddacf81f5e7 src/eval.c
--- a/src/eval.c	Thu May 01 19:37:34 2003 +0000
+++ b/src/eval.c	Thu May 01 19:38:05 2003 +0000
@@ -1187,7 +1187,7 @@
   Lisp_Object val;
   int count = SPECPDL_INDEX ();
 
-  record_unwind_protect (0, Fcdr (args));
+  record_unwind_protect (Fprogn, Fcdr (args));
   val = Feval (Fcar (args));
   return unbind_to (count, val);
 }