summaryrefslogtreecommitdiffstats
path: root/eval.c
diff options
context:
space:
mode:
Diffstat (limited to 'eval.c')
-rw-r--r--eval.c4
1 files changed, 3 insertions, 1 deletions
diff --git a/eval.c b/eval.c
index c66ddbef..d9f1c51d 100644
--- a/eval.c
+++ b/eval.c
@@ -2539,7 +2539,9 @@ static val me_ido(val form, val menv)
static val me_ret(val form, val menv)
{
- return cons(op_s, cons(identity_s, rest(form)));
+ return list(op_s, identity_s, cons(progn_s,
+ cons(list(var_s, rest_s, nao),
+ rest(form))), nao);
}
static val me_flet_labels(val form, val menv)