From 814b1a284fc22feb9444f2195a36c57cbacd84aa Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 20 Apr 2016 06:30:36 -0700 Subject: 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. --- stream.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'stream.c') diff --git a/stream.c b/stream.c index 774359f4..3acf430a 100644 --- a/stream.c +++ b/stream.c @@ -685,7 +685,7 @@ static val stdio_get_char(val stream) struct stdio_handle *h = coerce(struct stdio_handle *, stream->co.handle); if (h->unget_c) - return pop(&h->unget_c); + return rcyc_pop(&h->unget_c); if (h->f) { wint_t ch = utf8_decode(&h->ud, stdio_get_char_callback, -- cgit v1.2.3