diff options
author | Andy Wingo <wingo@pobox.com> | 2016-04-23 22:20:18 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2016-04-23 22:20:18 +0200 |
commit | 122c8e6b37ad9dd44226d66e3357802f40d75f5f (patch) | |
tree | 1231602ae6ae8ecd8d01bf611140785ae77c37b7 /libguile/rdelim.c | |
parent | 21650f8d52e8a42bb44c92e85b6e96da1fcf5805 (diff) | |
download | guile-122c8e6b37ad9dd44226d66e3357802f40d75f5f.tar.gz |
scm_ungetc, scm_ungets instead of _unlocked variants
* libguile/ports.h (scm_ungetc_unlocked, scm_ungets_unlocked): Remove;
replace with scm_ungetc, scm_ungets.
* libguile/ports.c (scm_ungetc, scm_ungets, scm_unread_char)
(scm_unread_string): Adapt.
* libguile/rdelim.c (scm_read_delimited_x): Use scm_ungetc.
* libguile/read.c: Unread characers with scm_ungetc, not
scm_ungetc_unlocked.
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 14955a972..9d1496795 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_unlocked (c, port); + scm_ungetc (c, port); return scm_cons (SCM_MAKE_CHAR (c), scm_from_size_t (j - cstart)); |