diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2016-04-18 06:46:40 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2016-04-18 06:46:40 -0700 |
commit | 7cebd162dcd582b1ff031c43f7f57d76087e8b8b (patch) | |
tree | cbef2e612277d056d77c37bbd4f60b9a348bf910 | |
parent | b7328a9a4f54d27f57bde487a02a7348e4685048 (diff) | |
download | txr-7cebd162dcd582b1ff031c43f7f57d76087e8b8b.tar.gz txr-7cebd162dcd582b1ff031c43f7f57d76087e8b8b.tar.bz2 txr-7cebd162dcd582b1ff031c43f7f57d76087e8b8b.zip |
Bugfix: @(if expr) not macro-expanding expr.
* parser.y (if_clause, elif_clauses_opt): Add missing
expand calls.
-rw-r--r-- | parser.y | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -366,7 +366,7 @@ if_clause : IF exprs_opt ')' val cases = nappend2(nappend2(iff, elifs), els); $$ = list(cases_s, cases, nao); } else - { val expr = car($2); + { val expr = expand(car($2), nil); val ifs = $5; val branch = cons(cons(expr, ifs), nil); val elifs = $6; @@ -386,7 +386,7 @@ elif_clauses_opt : ELIF exprs_opt ')' newl { val req = rlcp(cons(require_s, $2), $2); $$ = cons(cons(cons(req, nil), $5), $6); } else - { val expr = car($2); + { val expr = expand(car($2), nil); val elifs = $5; val branch = cons(cons(expr, elifs), nil); if (cdr($2)) |