summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2016-04-17 15:00:55 -0700
committerKaz Kylheku <kaz@kylheku.com>2016-04-17 15:00:55 -0700
commit587d7a252c7f3f0c3711379c9dad1cd97293a1c7 (patch)
tree6cd40b352936d109c0fa5ed109008727dee2ef36
parent57662048f3b5340f174f51c4f7d9921968aa6a1a (diff)
downloadtxr-587d7a252c7f3f0c3711379c9dad1cd97293a1c7.tar.gz
txr-587d7a252c7f3f0c3711379c9dad1cd97293a1c7.tar.bz2
txr-587d7a252c7f3f0c3711379c9dad1cd97293a1c7.zip
Bugfix: @(output) not expanding some Lisp exprs.
* parser.y (make_expr): This function is part of a hack for converting some hard-coded syntax like @(if ...) or @(and ...) in an @(output) block to a to a Lisp expression. Alas, the crucial step of expanding the Lisp form was neglected.
-rw-r--r--parser.y2
1 files changed, 1 insertions, 1 deletions
diff --git a/parser.y b/parser.y
index 5b5f7105..af2efad9 100644
--- a/parser.y
+++ b/parser.y
@@ -1518,7 +1518,7 @@ static wchar_t char_from_name(const wchar_t *name)
static val make_expr(parser_t *parser, val sym, val rest, val lineno)
{
val expr = cons(sym, rest);
- val ret = cons(expr_s, expr);
+ val ret = cons(expr_s, expand(expr, nil));
if (rest) {
rlcp(expr, rest);