From 0c03dd98cb65aef0f6abe026d4efacd4247120ef Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Fri, 6 Nov 2015 07:43:23 -0800
Subject: Fix serious regression in search_regex.

* regex.c (search_regex): In the Sep 7 2015 commit
titled "Don't use prot1 for temporary gc protection",
a rel1 call was left behind, causing an assert whenever
the function is used for a succesful "from end"
search.
---
 regex.c | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/regex.c b/regex.c
index 79692803..859f9f8f 100644
--- a/regex.c
+++ b/regex.c
@@ -2336,10 +2336,8 @@ val search_regex(val haystack, val needle_regex, val start,
 
       for (i = c_num(length_str(haystack)) - 1; i >= s; i--) {
         cnum span = regex_run(needle_regex, h + i);
-        if (span >= 0) {
-          rel1(&haystack);
+        if (span >= 0)
           return cons(num(i), num(span));
-        }
       }
 
       gc_hint(haystack);
-- 
cgit v1.2.3