diff options
author | Andy Wingo <wingo@pobox.com> | 2011-11-07 23:53:06 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-11-08 00:54:58 +0100 |
commit | be632904cafd0c5baf38b2ef970acc2c72af6cd3 (patch) | |
tree | e3bde19c1963a480bd33487c76c624f684953c9e /libguile/rdelim.c | |
parent | 0d959103f985bbb60959c7ef4738235527792e47 (diff) | |
download | guile-be632904cafd0c5baf38b2ef970acc2c72af6cd3.tar.gz |
locking on scm_c_read, scm_getc
* libguile/ports.c (scm_c_read_unlocked, scm_c_read, scm_getc_unlocked)
(scm_getc): Split getc and read operations into locked and unlocked
variants. Change most uses to use the _unlocked version.
Diffstat (limited to 'libguile/rdelim.c')
-rw-r--r-- | libguile/rdelim.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/rdelim.c b/libguile/rdelim.c index 9d1496795..97b545f82 100644 --- a/libguile/rdelim.c +++ b/libguile/rdelim.c @@ -79,7 +79,7 @@ SCM_DEFINE (scm_read_delimited_x, "%read-delimited!", 3, 3, 0, { size_t k; - c = scm_getc (port); + c = scm_getc_unlocked (port); for (k = 0; k < num_delims; k++) { if (scm_i_string_ref (delims, k) == c) @@ -149,7 +149,7 @@ SCM_DEFINE (scm_read_line, "%read-line", 0, 1, 0, } else { - buf[index] = scm_getc (port); + buf[index] = scm_getc_unlocked (port); switch (buf[index]) { case EOF: |