From: Paul Eggert <eggert@cs.ucla.edu>
Date: Mon, 26 Sep 2011 15:51:04 +0000 (-0700)
Subject: * eval.c (Fprog2): Simplify and allow C tail recursion.
X-Git-Tag: emacs-24.2.90~471^2~6^2~186
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a63df9262e1406cd6bd399c29107758f22a7d149;p=emacs.git

* eval.c (Fprog2): Simplify and allow C tail recursion.
---

diff --git a/src/eval.c b/src/eval.c
index 257b878395e..c6bf2ccef1d 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -396,9 +396,9 @@ usage: (prog2 FORM1 FORM2 BODY...)  */)
   struct gcpro gcpro1;
 
   GCPRO1 (args);
-
   eval_sub (XCAR (args));
-  RETURN_UNGCPRO (Fprog1 (XCDR (args)));
+  UNGCPRO;
+  return Fprog1 (XCDR (args));
 }
 
 DEFUN ("setq", Fsetq, Ssetq, 0, UNEVALLED, 0,