summaryrefslogtreecommitdiff
path: root/libguile/async.c
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2008-12-14 20:25:56 +0100
committerLudovic Courtès <ludo@gnu.org>2008-12-14 20:48:15 +0100
commit083f810fe9b7f04dc0de6b8ebc62053a41714f2b (patch)
treef36b397182a25292763bfad5bd14bdd69597327a /libguile/async.c
parentc9d15b05833feccf1cbc644ab534b9beeaa5b744 (diff)
parent55aae983565cd14821d4cdff9f44afc96f8868c1 (diff)
downloadguile-083f810fe9b7f04dc0de6b8ebc62053a41714f2b.tar.gz
Merge branch 'master' into boehm-demers-weiser-gc
Conflicts: lib/Makefile.am libguile/struct.c libguile/threads.c m4/gnulib-cache.m4 m4/gnulib-comp.m4
Diffstat (limited to 'libguile/async.c')
-rw-r--r--libguile/async.c10
1 files changed, 6 insertions, 4 deletions
diff --git a/libguile/async.c b/libguile/async.c
index 63708b633..040082fb8 100644
--- a/libguile/async.c
+++ b/libguile/async.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1995,1996,1997,1998,2000,2001, 2002, 2004, 2006 Free Software Foundation, Inc.
+/* Copyright (C) 1995,1996,1997,1998,2000,2001, 2002, 2004, 2006, 2008 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
@@ -41,6 +41,8 @@
#include <unistd.h>
#endif
+#include <full-write.h>
+
/* {Asynchronous Events}
*
@@ -236,13 +238,13 @@ scm_i_queue_async_cell (SCM c, scm_i_thread *t)
if (sleep_fd >= 0)
{
char dummy = 0;
+
/* Likewise, T might already been done with sleeping here, but
interrupting it once too often does no harm. T might also
not yet have started sleeping, but this is no problem either
since the data written to a pipe will not be lost, unlike a
- condition variable signal.
- */
- write (sleep_fd, &dummy, 1);
+ condition variable signal. */
+ full_write (sleep_fd, &dummy, 1);
}
/* This is needed to protect sleep_mutex.