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.

1 files changed, 1 insertions, 1 deletions

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