From 6fc30f12133f6144a7c57df0bc0c397d64387bb9 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Thu, 24 Nov 2016 21:22:21 -0800
Subject: 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.
---
 eval.c | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'eval.c')

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,
-- 
cgit v1.2.3