Commit a63df926 authored by Paul Eggert's avatar Paul Eggert
Browse files

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

parent 125b3835
......@@ -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,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment