From 88e3db0abbde783bfa57f5bce2d792b5dbac6ead Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Thu, 24 Nov 2011 08:20:45 -0800
Subject: * parser.y (texts, elem): Fixed incorrect use of rl rather than rlcp.
Added forgotten rlcp on result of optimize_text.
* RELNOTES: Updated.
---
parser.y | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
(limited to 'parser.y')
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);
--
cgit v1.2.3