summaryrefslogtreecommitdiff
path: root/libguile/rw.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2011-11-08 00:29:46 +0100
committerAndy Wingo <wingo@pobox.com>2011-11-08 00:55:01 +0100
commit4251ae2e282385be6d08b0fffab761fcc0fa93aa (patch)
tree1ed22a034053f088d63fa1c5bfd7f1dbb88a7043 /libguile/rw.c
parentc932ce0b559ceb7a14846241d7b1856c7c3eea3b (diff)
downloadguile-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.c4
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);
}
{