(Funwind_protect): Use func = Fprogn rather symbol = Qnil.

diff --git a/src/eval.c b/src/eval.c
index 2b71fe243cb06ec122e25f53acf834a2fcef3930..0310e165919806a2e76776be79b057de5e9898b0 100644 (file)
--- a/src/eval.c
+++ b/src/eval.c
@@ -1187,7 +1187,7 @@ usage: (unwind-protect BODYFORM UNWINDFORMS...)  */)
   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);
 }