bugfix: :filter not handled right in output var.

This issue was fixed in quasiliterals only. Because of the
implementation duplicity between output vars and quasiliteral
vars, we have to fix it in two places.

When the parser handles quasiliterals, it builds vars without
expanding the contents. The quasiliteral expander takes care
of recognzing (sys:var ...) forms and properly handles them
and their attributes, avoiding expanding the argument of
a :filter keyword.

When the parser handles an o_var that is a braced variable,
it calls expand on its contents right there, then builds the
(sys:var ...) form from the expanded contents.

Why don't we just call expand_quasi in the o_var rule to have
a single (sys:var ...) form expanded exactly how it is
done in quasiliterals.

* eval.c (expand_quasi): Change static function to external.

* eval.c (expand_quasi): Declared.

* parser.y (o_var): Construct an unexpanded (sys:var ...)
form, and then wrap it in a one-element list. This is a
de-facto quasi-items list, which can be expanded by
expand_quasi. Then we pull the car of the expansion to
get our expanded var.

1 files changed, 3 insertions, 4 deletions

diff --git a/parser.y b/parser.y
index 01a1c91a..5a2ef76f 100644
--- a/parser.y
+++ b/parser.y
@@ -782,10 +782,9 @@ o_var : SYMTOK                  { val expr = symhlpr($1, nil);
                                               expand_meta($2, nil),
                                               expand_meta($3, nil), nao); }
                                   else
-                                  { $$ = list(var_s,
-                                              expand($2, nil),
-                                              expand_forms($3, nil), nao); }
-                                  rl($$, num(parser->lineno)); }
+                                  { val quasi_var = list(var_s, $2, $3, nao);
+                                    val quasi_items = cons(quasi_var, nil);
+                                    $$ = car(expand_quasi(quasi_items, nil)); } }
       | SYMTOK error            { $$ = nil;
                                   yybadtok(yychar, lit("variable spec")); }
       ;