diff options
author | Andy Wingo <wingo@pobox.com> | 2016-04-22 20:42:24 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2016-04-22 20:42:24 +0200 |
commit | 4934b69ddfb70d59b6ede6538b48da8ddea70a11 (patch) | |
tree | dc22e3b03e4a22c762348a14e771bc8d8725efcb /libguile/read.c | |
parent | fb577b59af2619edd78fea71ce6250a36376abdd (diff) | |
download | guile-4934b69ddfb70d59b6ede6538b48da8ddea70a11.tar.gz |
scm_c_read instead of scm_c_read_unlock
* libguile/ports.h (scm_c_read_unlocked): Remove.
* libguile/ports.c (scm_c_read): Rename from scm_c_read_unlocked.
Remove old scm_c_read. Lock around access to the rw_active flag, and
call scm_flush instead of scm_flush_unlocked, and scm_fill_input
instead of scm_fill_input_unlocked.
* libguile/read.c (scm_i_scan_for_encoding): Use scm_c_read instead of
the _unlocked function.
Diffstat (limited to 'libguile/read.c')
-rw-r--r-- | libguile/read.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/read.c b/libguile/read.c index 144e39dc5..75f042377 100644 --- a/libguile/read.c +++ b/libguile/read.c @@ -2100,7 +2100,7 @@ scm_i_scan_for_encoding (SCM port) if (SCM_FPORTP (port) && !SCM_FDES_RANDOM_P (SCM_FPORT_FDES (port))) return NULL; - bytes_read = scm_c_read_unlocked (port, header, SCM_ENCODING_SEARCH_SIZE); + bytes_read = scm_c_read (port, header, SCM_ENCODING_SEARCH_SIZE); header[bytes_read] = '\0'; scm_seek (port, scm_from_int (0), scm_from_int (SEEK_SET)); } |