From b177dea74e5280ccaeeba4bd90fdf6d7967035f1 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Thu, 29 Sep 2011 12:12:32 -0700
Subject: * match.c (chars_k): New variable. (match_line): Keyword arguments in
 coll implemented. (match_init): chars_k variable initialized.

* parser.l (COLL): Lexical syntax changed to allow for
argument material.

* parser.y (elem): Coll syntax rewritten for arguments.

* txr.1: Updated.
---
 parser.y | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'parser.y')

diff --git a/parser.y b/parser.y
index 0972c100..17ad883a 100644
--- a/parser.y
+++ b/parser.y
@@ -201,9 +201,9 @@ elem : TEXT                     { $$ = string_own($1); }
      | list                     { $$ = $1; }
      | regex                    { $$ = cons(regex_compile(rest($1)),
                                             rest($1)); }
-     | COLL elems END           { $$ = list(coll_s, $2, nao); }
-     | COLL elems
-       UNTIL elems END          { $$ = list(coll_s, $2, $4, nao); }
+     | COLL exprs_opt ')' elems END     { $$ = list(coll_s, $4, nil, $2, nao); }
+     | COLL exprs_opt ')' elems
+       UNTIL elems END          { $$ = list(coll_s, $4, $6, $2, nao); }
      | COLL error               { $$ = nil;
                                   yybadtoken(yychar, lit("coll clause")); }
      ;
-- 
cgit v1.2.3