diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2011-11-24 08:20:45 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2011-11-24 08:20:45 -0800 |
commit | 88e3db0abbde783bfa57f5bce2d792b5dbac6ead (patch) | |
tree | 48dceda1ad381631f7908e37507f471c24e262d8 /parser.y | |
parent | 018d7b2e1e18436e559bf15b0839a7236b6ff975 (diff) | |
download | txr-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.y | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -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); |