From 2ead17138dfea8df5dccaf72eca2c47629880086 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 25 Nov 2016 23:28:41 -0800 Subject: bugfix: expander traversing (sys:expr ...). * eval.c (do_expand): Do not expand into (sys:expr ...) expressins, the same way (sys:var ...) expressions are avoided. They are not forms. --- eval.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/eval.c b/eval.c index 566a1877..74713d72 100644 --- a/eval.c +++ b/eval.c @@ -3865,7 +3865,7 @@ static val do_expand(val form, val menv) return expand(first(args), menv); } else if (sym == sys_lisp1_value_s) { return expand_lisp1_value(form, menv); - } else if (sym == var_s) { + } else if (sym == var_s || sym == expr_s) { return form; } else { /* funtion call -- cgit v1.2.3