range-regex returns range, not cons.

* regex.c (range_regex): Return range.
(search_regst): Use appropriate accessors on
range returned by range_regex.

* lib.c (tok_where): Destructure range returned by
range_regex, using range_bind.

* txr.1: Documented changed behavior.

1 files changed, 1 insertions, 1 deletions

diff --git a/lib.c b/lib.c
index ee6c270d..acc55a90 100644
--- a/lib.c
+++ b/lib.c
@@ -3550,7 +3550,7 @@ val tok_where(val str, val tok_regex)
 
   for (;;) {
     val range = range_regex(str, tok_regex, pos, nil);
-    cons_bind (match_start, match_end, range);
+    range_bind (match_start, match_end, range);
 
     if (!match_start)
       break;