diff options
Diffstat (limited to 'src')
| -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, |