bugfix: don't expand @meta syntax as function call.

* eval.c (do_expand): If the form is (sys:var ...)
then skip it without expanding. Of course, that does
not preclude it form being a macro.

1 files changed, 2 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index 4e617f9e..6b1f567f 100644
--- a/eval.c
+++ b/eval.c
@@ -3865,6 +3865,8 @@ 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) {
+      return form;
     } else {
       /* funtion call
          also handles: prog1, call, if, and, or,