diff options
Diffstat (limited to 'libguile/scmsigs.c')
-rw-r--r-- | libguile/scmsigs.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/libguile/scmsigs.c b/libguile/scmsigs.c index ec1926eba..766a7b25d 100644 --- a/libguile/scmsigs.c +++ b/libguile/scmsigs.c @@ -273,10 +273,9 @@ SCM_DEFINE (scm_sigaction_for_thread, "sigaction", 1, 3, 0, if (orig_handlers[csig] == SIG_ERR) save_handler = 1; #endif - handler = close_1 (handler, signum); SCM_VECTOR_SET (*signal_handlers, csig, handler); SCM_VECTOR_SET (signal_handler_cells, csig, - scm_cons (handler, SCM_BOOL_F)); + scm_cons (close_1 (handler, signum), SCM_BOOL_F)); SCM_VECTOR_SET (signal_handler_threads, csig, thread); } |