Some streamlining in the cons recycling.

* lib.c (rcyc_pop): Just assume that *plist points to a cons
and access the fields directly.
(rcyc_cons): Don't bother with rplacd.
(rcyc_list): Don't bother with set macro.

* regex.c (read_until_match): Defensive coding: locally
ensure that rcyc_pop won't be called on a nil stack,
which will now segfault.

1 files changed, 1 insertions, 1 deletions

diff --git a/regex.c b/regex.c
index faf38965..4ad34dcf 100644
--- a/regex.c
+++ b/regex.c
@@ -2579,7 +2579,7 @@ val read_until_match(val regex, val stream_in, val include_match_in)
 
   if (nil) {
 out_match:
-    while (stack != match)
+    while (stack && stack != match)
       unget_char(rcyc_pop(&stack), stream);
     if (!out)
       out = null_string;