diff options
| author | Andy Wingo <wingo@pobox.com> | 2011-11-08 00:29:46 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2011-11-08 00:55:01 +0100 |
| commit | 4251ae2e282385be6d08b0fffab761fcc0fa93aa (patch) | |
| tree | 1ed22a034053f088d63fa1c5bfd7f1dbb88a7043 /libguile/ioext.c | |
| parent | c932ce0b559ceb7a14846241d7b1856c7c3eea3b (diff) | |
| download | guile-4251ae2e282385be6d08b0fffab761fcc0fa93aa.tar.gz | |
locking on port buffering operations
* libguile/ports.c (scm_fill_input_unlocked, scm_fill_input)
(scm_end_input, scm_end_input_unlocked, scm_flush)
(scm_flush_unlocked): Add locking and _unlocked variants.
* libguile/filesys.c:
* libguile/fports.c:
* libguile/gdbint.c:
* libguile/r6rs-ports.c:
* libguile/read.c:
* libguile/rw.c: Adapt callers to use _unlocked variants.
Diffstat (limited to 'libguile/ioext.c')
| -rw-r--r-- | libguile/ioext.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/ioext.c b/libguile/ioext.c index f2b1d6d4c..b1addf4c1 100644 --- a/libguile/ioext.c +++ b/libguile/ioext.c @@ -95,7 +95,7 @@ SCM_DEFINE (scm_redirect_port, "redirect-port", 2, 0, 0, if (pt->rw_active == SCM_PORT_WRITE) ptob->flush (new); else if (pt->rw_active == SCM_PORT_READ) - scm_end_input (new); + scm_end_input_unlocked (new); ans = dup2 (oldfd, newfd); if (ans == -1) SCM_SYSERROR; |