summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2017-01-22 06:37:49 -0800
committerKaz Kylheku <kaz@kylheku.com>2017-01-22 06:37:49 -0800
commit078c13e923019dcba67380581012c5ebf6661390 (patch)
tree239ac3d86ceea307dc0215ab6b6c5b22b061743e
parent64e4b30e88faa26e715ebe5882f00bb46fb5e905 (diff)
downloadtxr-078c13e923019dcba67380581012c5ebf6661390.tar.gz
txr-078c13e923019dcba67380581012c5ebf6661390.tar.bz2
txr-078c13e923019dcba67380581012c5ebf6661390.zip
parser bugfix: expand used instead of expand_forms.
* parser.y (o_var): fix expand wrongly being called on a list of forms.
-rw-r--r--parser.y2
1 files changed, 1 insertions, 1 deletions
diff --git a/parser.y b/parser.y
index 73b9ce1f..7d1cd0ca 100644
--- a/parser.y
+++ b/parser.y
@@ -784,7 +784,7 @@ o_var : SYMTOK { val expr = symhlpr($1, nil);
else
{ $$ = list(var_s,
expand($2, nil),
- expand($3, nil), nao); }
+ expand_forms($3, nil), nao); }
rl($$, num(parser->lineno)); }
| SYMTOK error { $$ = nil;
yybadtok(yychar, lit("variable spec")); }