diff options
author | Marius Vollmer <mvo@zagadka.de> | 2002-10-05 13:06:58 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2002-10-05 13:06:58 +0000 |
commit | f6b44bd99f1d4ae963dfb3aaa66a30e9c1574924 (patch) | |
tree | 3bdc760eadd65aaf3c9db4e5452779e2e7f00705 /libguile/scmsigs.c | |
parent | 5e405a6055fdd097d765d126f2a90e0a80adade2 (diff) | |
download | guile-f6b44bd99f1d4ae963dfb3aaa66a30e9c1574924.tar.gz |
* async.c (scm_async_click): Set the cdr of a executed handler
cell to SCM_BOOL_F, not SCM_EOL.
(scm_i_queue_async_cell): Queue the cell at the end of the list,
and only if the handler procedure is not already present.
(scm_system_async_mark_for_thread): Initialize cdr of handler cell
with SCM_BOOL_F.
* scmsigs.c (scm_sigaction_for_thread): Likewise.
Diffstat (limited to 'libguile/scmsigs.c')
-rw-r--r-- | libguile/scmsigs.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/scmsigs.c b/libguile/scmsigs.c index c77fad0a9..ec1926eba 100644 --- a/libguile/scmsigs.c +++ b/libguile/scmsigs.c @@ -276,7 +276,7 @@ SCM_DEFINE (scm_sigaction_for_thread, "sigaction", 1, 3, 0, handler = close_1 (handler, signum); SCM_VECTOR_SET (*signal_handlers, csig, handler); SCM_VECTOR_SET (signal_handler_cells, csig, - scm_cons (handler, SCM_EOL)); + scm_cons (handler, SCM_BOOL_F)); SCM_VECTOR_SET (signal_handler_threads, csig, thread); } |