From a63df9262e1406cd6bd399c29107758f22a7d149 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Mon, 26 Sep 2011 08:51:04 -0700 Subject: [PATCH] * eval.c (Fprog2): Simplify and allow C tail recursion. --- src/eval.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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, -- 2.39.2