From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 1 May 2003 19:38:05 +0000 (+0000)
Subject: (Funwind_protect): Use func = Fprogn rather symbol = Qnil.
X-Git-Tag: ttn-vms-21-2-B4~10357
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=04b28167ad88f2f397583f86cd56fdccd6b7a81f;p=emacs.git

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

diff --git a/src/eval.c b/src/eval.c
index 2b71fe243cb..0310e165919 100644
--- 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);
 }