diff options
author | Andy Wingo <wingo@pobox.com> | 2011-11-08 00:14:16 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-11-08 00:54:58 +0100 |
commit | c932ce0b559ceb7a14846241d7b1856c7c3eea3b (patch) | |
tree | d3185454f09b517dca6fb6fa95572db9cb0c8a88 /libguile/rdelim.c | |
parent | be632904cafd0c5baf38b2ef970acc2c72af6cd3 (diff) | |
download | guile-c932ce0b559ceb7a14846241d7b1856c7c3eea3b.tar.gz |
locking on unget_byte, ungetc, ungets
* libguile/ports.h:
* libguile/ports.c (scm_unget_byte_unlocked, scm_unget_byte)
(scm_ungetc_unlocked, scm_ungetc, scm_ungets_unlocked, scm_ungets):
Add locking and _unlocked variants.
* libguile/arrays.c:
* libguile/rdelim.c:
* libguile/read.c:
* libguile/vports.c: Adapt callers to use the _unlocked variants.
Diffstat (limited to 'libguile/rdelim.c')
-rw-r--r-- | libguile/rdelim.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/rdelim.c b/libguile/rdelim.c index 97b545f82..c8c7d8b43 100644 --- a/libguile/rdelim.c +++ b/libguile/rdelim.c @@ -85,7 +85,7 @@ SCM_DEFINE (scm_read_delimited_x, "%read-delimited!", 3, 3, 0, if (scm_i_string_ref (delims, k) == c) { if (scm_is_false (gobble)) - scm_ungetc (c, port); + scm_ungetc_unlocked (c, port); return scm_cons (SCM_MAKE_CHAR (c), scm_from_size_t (j - cstart)); |