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/rw.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/rw.c')
-rw-r--r-- | libguile/rw.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/rw.c b/libguile/rw.c index a9b4a329a..677e0d8df 100644 --- a/libguile/rw.c +++ b/libguile/rw.c @@ -1,4 +1,4 @@ -/* Copyright (C) 2001, 2006, 2009 Free Software Foundation, Inc. +/* Copyright (C) 2001, 2006, 2009, 2011 Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public License @@ -248,7 +248,7 @@ SCM_DEFINE (scm_write_string_partial, "write-string/partial", 1, 3, 0, return scm_from_long (write_len); } if (pt->write_pos > pt->write_buf) - scm_flush (port); + scm_flush_unlocked (port); fdes = SCM_FPORT_FDES (port); } { |