diff options
| author | Marius Vollmer <mvo@zagadka.de> | 2004-09-22 17:41:37 +0000 |
|---|---|---|
| committer | Marius Vollmer <mvo@zagadka.de> | 2004-09-22 17:41:37 +0000 |
| commit | d2e53ed6f84df8c79f4bf5cf41d4f6d381bc065b (patch) | |
| tree | df14a633c6d8ac08ba098651a9164a0c991d8288 /libguile/scmsigs.c | |
| parent | a61f4e0c61695e17984b25b16fbf720b851b739c (diff) | |
| download | guile-d2e53ed6f84df8c79f4bf5cf41d4f6d381bc065b.tar.gz | |
*** empty log message ***
Diffstat (limited to 'libguile/scmsigs.c')
| -rw-r--r-- | libguile/scmsigs.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/scmsigs.c b/libguile/scmsigs.c index 1b9aa0724..d57deabab 100644 --- a/libguile/scmsigs.c +++ b/libguile/scmsigs.c @@ -104,7 +104,7 @@ take_signal (int signum) SCM handler = SCM_VECTOR_REF(signal_cell_handlers, signum); SCM thread = SCM_VECTOR_REF(signal_handler_threads, signum); scm_root_state *root = scm_i_thread_root (thread); - if (SCM_CONSP (cell)) + if (scm_is_pair (cell)) { SCM_SETCAR (cell, handler); root->pending_asyncs = 1; @@ -148,7 +148,7 @@ scm_delq_spine_x (SCM cell, SCM list) while (!scm_is_eq (cell, s)) { - if (SCM_NULLP (s)) + if (scm_is_null (s)) return list; prev = s; s = SCM_CDR (s); |