From 04b28167ad88f2f397583f86cd56fdccd6b7a81f Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 1 May 2003 19:38:05 +0000 Subject: (Funwind_protect): Use func = Fprogn rather symbol = Qnil. --- src/eval.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') diff --git a/src/eval.c b/src/eval.c index 2b71fe243c..0310e16591 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); } -- cgit v1.2.3