From 7400f0f0e7821bc3f7b6cc6ab4af4438d8949209 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sat, 12 Nov 2011 23:45:50 -0800
Subject: * parser.y: Correctly record line number info for regex.

---
 parser.y | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'parser.y')

diff --git a/parser.y b/parser.y
index 117262fb..3c0823e3 100644
--- a/parser.y
+++ b/parser.y
@@ -279,7 +279,7 @@ elem : TEXT                     { $$ = rl(string_own($1), num(lineno)); }
      | list                     { $$ = $1; }
      | regex                    { $$ = cons(regex_compile(rest($1)),
                                             rest($1));
-                                  rl($1, num(lineno)); }
+                                  rl($$, num(lineno)); }
      | COLL exprs_opt ')' elems END     { $$ = list(coll_s, $4, nil, $2, nao);
                                           rl($$, num($1)); }
      | COLL exprs_opt ')' elems
-- 
cgit v1.2.3