bugfix: expand dest arg of @(output).

* parser.y (expand_form_ver): New inline function.
(output_clause): If exprs are present, expand first one.

1 files changed, 12 insertions, 1 deletions

diff --git a/parser.y b/parser.y
index dfc501df..40e36f47 100644
--- a/parser.y
+++ b/parser.y
@@ -89,6 +89,13 @@ INLINE val expand_forms_ver(val forms, int ver)
   return forms;
 }
 
+INLINE val expand_form_ver(val form, int ver)
+{
+  if (!opt_compat || opt_compat >= ver)
+    return expand(form, nil);
+  return form;
+}
+
 %}
 
 %pure-parser
@@ -574,7 +581,11 @@ output_clause : OUTPUT ')' o_elems '\n'
                 END newl        { $$ = rl(list(output_s, $4, nao), num($1)); }
               | OUTPUT exprs ')' newl
                 out_clauses
-                END newl        { $$ = list(output_s, $5, $2, nao);
+                END newl        { cons_bind (dest, rest, $2);
+                                  val dest_ex = expand_form_ver(dest, 166);
+                                  val args = if3(dest_ex == dest,
+                                                 $2, cons(dest_ex, rest));
+                                  $$ = list(output_s, $5, args, nao);
                                   rl($$, num($1)); }
 
               | OUTPUT exprs ')' o_elems '\n'