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.

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;
           }