summaryrefslogtreecommitdiffstats
path: root/eval.c
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2016-12-20 19:57:51 -0800
committerKaz Kylheku <kaz@kylheku.com>2016-12-20 19:57:51 -0800
commitf2df1d0b58a3436e2137cb57b86bae805c033f3a (patch)
tree47e62621ac1a677c77538c69d95556f0ca8a6140 /eval.c
parentda23d76b54532d8d172388c1faeb6c97200d2a95 (diff)
downloadtxr-f2df1d0b58a3436e2137cb57b86bae805c033f3a.tar.gz
txr-f2df1d0b58a3436e2137cb57b86bae805c033f3a.tar.bz2
txr-f2df1d0b58a3436e2137cb57b86bae805c033f3a.zip
comment change in expander.
* eval.c (do_expand): Fix outdated comment about what forms are expanded like function calls.
Diffstat (limited to 'eval.c')
-rw-r--r--eval.c7
1 files changed, 3 insertions, 4 deletions
diff --git a/eval.c b/eval.c
index 8963bb2f..caa3c501 100644
--- a/eval.c
+++ b/eval.c
@@ -3924,10 +3924,9 @@ static val do_expand(val form, val menv)
} else if (sym == var_s || sym == expr_s) {
return form;
} else {
- /* funtion call
- also handles: prog1, call, if, and, or,
- unwind-protect, return, dwim, set, inc, dec,
- push, pop, flip, and with-saved-vars. */
+ /* funtion call expansion also handles: prog1, call, if, and, or,
+ unwind-protect, return and other special forms whose arguments
+ are evaluated */
val form_ex = dot_to_apply(form, nil);
val sym_ex = first(form_ex);
val args = rest(form_ex);