mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-18 01:30:27 +02:00
Code Activity

scm_c_read instead of scm_c_read_unlock

Browse source 
* 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.
This commit is contained in:
Andy Wingo 2016-04-22 20:42:24 +02:00
parent fb577b59af
commit 4934b69ddf
3 changed files with 10 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/read.c
View file

@ -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));
}