diff options
author | Ludovic Courtès <ludo@gnu.org> | 2008-12-14 20:25:56 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2008-12-14 20:48:15 +0100 |
commit | 083f810fe9b7f04dc0de6b8ebc62053a41714f2b (patch) | |
tree | f36b397182a25292763bfad5bd14bdd69597327a /libguile/async.c | |
parent | c9d15b05833feccf1cbc644ab534b9beeaa5b744 (diff) | |
parent | 55aae983565cd14821d4cdff9f44afc96f8868c1 (diff) | |
download | guile-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.c | 10 |
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. |