diff options
| author | Stefan Monnier <[email protected]> | 2003-05-01 19:38:05 +0000 |
|---|---|---|
| committer | Stefan Monnier <[email protected]> | 2003-05-01 19:38:05 +0000 |
| commit | 04b28167ad88f2f397583f86cd56fdccd6b7a81f (patch) | |
| tree | 3381be74bd2e73b9918467b32e7d5e09a189a0e4 /src | |
| parent | 742f87104868ba52f6f0ecb4a470de0ef75d220a (diff) | |
(Funwind_protect): Use func = Fprogn rather symbol = Qnil.
Diffstat (limited to 'src')
| -rw-r--r-- | src/eval.c | 2 |
1 files changed, 1 insertions, 1 deletions
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); } |