summaryrefslogtreecommitdiffstats
path: root/parser.y
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2011-11-24 08:20:45 -0800
committerKaz Kylheku <kaz@kylheku.com>2011-11-24 08:20:45 -0800
commit88e3db0abbde783bfa57f5bce2d792b5dbac6ead (patch)
tree48dceda1ad381631f7908e37507f471c24e262d8 /parser.y
parent018d7b2e1e18436e559bf15b0839a7236b6ff975 (diff)
downloadtxr-88e3db0abbde783bfa57f5bce2d792b5dbac6ead.tar.gz
txr-88e3db0abbde783bfa57f5bce2d792b5dbac6ead.tar.bz2
txr-88e3db0abbde783bfa57f5bce2d792b5dbac6ead.zip
* parser.y (texts, elem): Fixed incorrect use of rl rather
than rlcp. Added forgotten rlcp on result of optimize_text. * RELNOTES: Updated.
Diffstat (limited to 'parser.y')
-rw-r--r--parser.y8
1 files changed, 4 insertions, 4 deletions
diff --git a/parser.y b/parser.y
index 27a668de..5a5c340b 100644
--- a/parser.y
+++ b/parser.y
@@ -283,12 +283,12 @@ text : TEXT { $$ = rl(string_own($1), num(lineno)); }
rl($$, num(lineno)); }
;
-texts : text %prec LOW { $$ = rl(cons($1, nil), $1); }
- | text texts { $$ = rl(cons($1, $2), $2); }
+texts : text %prec LOW { $$ = rlcp(cons($1, nil), $1); }
+ | text texts { $$ = rlcp(cons($1, $2), $2); }
;
-elem : texts { $$ = rl(cons(text_s, $1), $1);
- $$ = optimize_text($$); }
+elem : texts { $$ = rlcp(cons(text_s, $1), $1);
+ $$ = rlcp(optimize_text($$), $$); }
| var { $$ = rl($1, num(lineno)); }
| list { $$ = $1; }
| COLL exprs_opt ')' elems END { $$ = list(coll_s, $4, nil, $2, nao);