Recycle conses in unget-char and read-until-match.

* regex.c (ead_until_match): Use rcyc_pop instead of pop
to move the conses to the recycle list. We know these
are not shared with anything. Adding additional logic
to completely recycle the stack.

* socket.c (dgram_get_char): Use rcyc_pop to
get the character from the push-back list.

* stream.c (stdio_get_char): Likewise.

1 files changed, 1 insertions, 1 deletions

diff --git a/socket.c b/socket.c
index 102127b9..5871632e 100644
--- a/socket.c
+++ b/socket.c
@@ -436,7 +436,7 @@ static val dgram_get_char(val stream)
   struct dgram_stream *d = coerce(struct dgram_stream *, stream->co.handle);
 
   if (d->unget_c) {
-    return pop(&d->unget_c);
+    return rcyc_pop(&d->unget_c);
   } else {
     wint_t ch = utf8_decode(&d->ud, dgram_get_byte_callback,
                             coerce(mem_t *, d));