diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2016-12-27 10:32:44 -0800 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2016-12-27 10:38:15 -0800 |
| commit | a02ca7a231c3856efd57a502c6a73e6c251091e8 (patch) | |
| tree | aa5766c2c9f677ab0bfb81bcc3b920fabdc5305c /src/bytecode.c | |
| parent | e6161f648903d821865b9610b3b6aa0f82a5dcb7 (diff) | |
| download | emacs-a02ca7a231c3856efd57a502c6a73e6c251091e8.tar.gz | |
Simplify prog1 implementation
Inspired by a suggestion from Chris Gregory in:
http://lists.gnu.org/archive/html/emacs-devel/2016-12/msg00965.html
On my platform, this generates exactly the same machine insns.
* src/eval.c (prog_ignore): Rename from unwind_body, since
it’s more general than that. All callers changed.
(Fprog1): Simplify by using prog_ignore.
(Fwhile): Clarify by using prog_ignore.
Diffstat (limited to 'src/bytecode.c')
| -rw-r--r-- | src/bytecode.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/bytecode.c b/src/bytecode.c index d484dbb25c6..3bb96c2ed2d 100644 --- a/src/bytecode.c +++ b/src/bytecode.c @@ -809,7 +809,7 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth, { Lisp_Object handler = POP; /* Support for a function here is new in 24.4. */ - record_unwind_protect (FUNCTIONP (handler) ? bcall0 : unwind_body, + record_unwind_protect (FUNCTIONP (handler) ? bcall0 : prog_ignore, handler); NEXT; } |