From 1618886a0fb697303cba1e5cb9e669e84babce68 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 7 Dec 2015 22:33:26 -0800
Subject: 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.
---
 lib.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib.c')

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;
-- 
cgit v1.2.3