diff options
| author | Paul Eggert | 2011-09-26 08:51:04 -0700 |
|---|---|---|
| committer | Paul Eggert | 2011-09-26 08:51:04 -0700 |
| commit | a63df9262e1406cd6bd399c29107758f22a7d149 (patch) | |
| tree | 10f6f2bbd11d7b719b7ae8abeabe666a555f7f59 /src/eval.c | |
| parent | 125b3835e556b6c7d967148f09ed15c0a4747d14 (diff) | |
| download | emacs-a63df9262e1406cd6bd399c29107758f22a7d149.tar.gz emacs-a63df9262e1406cd6bd399c29107758f22a7d149.zip | |
* eval.c (Fprog2): Simplify and allow C tail recursion.
Diffstat (limited to 'src/eval.c')
| -rw-r--r-- | src/eval.c | 4 |
1 files 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...) */) | |||
| 396 | struct gcpro gcpro1; | 396 | struct gcpro gcpro1; |
| 397 | 397 | ||
| 398 | GCPRO1 (args); | 398 | GCPRO1 (args); |
| 399 | |||
| 400 | eval_sub (XCAR (args)); | 399 | eval_sub (XCAR (args)); |
| 401 | RETURN_UNGCPRO (Fprog1 (XCDR (args))); | 400 | UNGCPRO; |
| 401 | return Fprog1 (XCDR (args)); | ||
| 402 | } | 402 | } |
| 403 | 403 | ||
| 404 | DEFUN ("setq", Fsetq, Ssetq, 0, UNEVALLED, 0, | 404 | DEFUN ("setq", Fsetq, Ssetq, 0, UNEVALLED, 0, |