summaryrefslogtreecommitdiff
path: root/libguile/rdelim.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2011-11-07 23:53:06 +0100
committerAndy Wingo <wingo@pobox.com>2011-11-08 00:54:58 +0100
commitbe632904cafd0c5baf38b2ef970acc2c72af6cd3 (patch)
treee3bde19c1963a480bd33487c76c624f684953c9e /libguile/rdelim.c
parent0d959103f985bbb60959c7ef4738235527792e47 (diff)
downloadguile-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.c4
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: