diff options
| -rw-r--r-- | parser.y | 2 | ||||
| -rw-r--r-- | y.tab.c.shipped | 2 |
2 files changed, 2 insertions, 2 deletions
@@ -1421,7 +1421,7 @@ quasi_item : litchars { $$ = $1; } | q_var { $$ = $1; } | METANUM { $$ = cons(var_s, cons($1, nil)); rl($$, num(parser->lineno)); } - | '@' n_expr { if (integerp($2) || symbolp($2)) + | '@' n_expr { if (integerp($2) || symbolp($2) || $1) { $$ = rlcp_tree(if3($1, list(var_s, $2, nil, $1, nao), diff --git a/y.tab.c.shipped b/y.tab.c.shipped index 1a31c20f..f3433f68 100644 --- a/y.tab.c.shipped +++ b/y.tab.c.shipped @@ -6676,7 +6676,7 @@ yyreduce: /* Line 1806 of yacc.c */ #line 1424 "parser.y" - { if (integerp((yyvsp[(2) - (2)].val)) || symbolp((yyvsp[(2) - (2)].val))) + { if (integerp((yyvsp[(2) - (2)].val)) || symbolp((yyvsp[(2) - (2)].val)) || (yyvsp[(1) - (2)].val)) { (yyval.val) = rlcp_tree(if3((yyvsp[(1) - (2)].val), list(var_s, (yyvsp[(2) - (2)].val), nil, (yyvsp[(1) - (2)].val), nao), |