* eval.c (subst_vars): Handle lone symbols (not wrapped

in sys::var form) as variables. This allows interpretation of metanums
in quasiliterals, because these are replaced by variables in the
op expander.

* parser.l: Recognize METANUM in QSILIT state.

* parser.y (quasi_item): METANUM parsed in quasiliteral.

* txr.vim: Metanums highlighted properly.

1 files changed, 14 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index 07c7fc1c..380b4623 100644
--- a/eval.c
+++ b/eval.c
@@ -1117,6 +1117,20 @@ static val subst_vars(val forms, val env)
         forms = cdr(forms);
         continue;
       }
+    } else if (bindable(form)) {
+      val pair = lookup_var(env, form);
+
+      if (pair) {
+        val str = cdr(pair);
+
+        if (!stringp(str) && !listp(str))
+          str = format(nil, lit("~a"), str, nao);
+
+        forms = cons(str, rest(forms));
+        continue;
+      }
+      uw_throwf(query_error_s, lit("unbound variable ~a"),
+                               form, nao);
     }
 
     list_collect(iter, form);