diff options
| author | Neil Jerram <neil@ossau.uklinux.net> | 2002-01-22 23:31:39 +0000 |
|---|---|---|
| committer | Neil Jerram <neil@ossau.uklinux.net> | 2002-01-22 23:31:39 +0000 |
| commit | c96d76b88dcb7805311d14e6e408d064211fde20 (patch) | |
| tree | 08d604bcf94ceb35dd271c4c46064ed60644f5b4 /libguile/async.c | |
| parent | 229d2c9c076d214457f4f6817f7d3c1db90ed994 (diff) | |
| download | guile-c96d76b88dcb7805311d14e6e408d064211fde20.tar.gz | |
* First batch of libguile changes for Elisp support.
* Fixed a few typos.
* Minor rationalization of macros relating to source breakpoints.
Diffstat (limited to 'libguile/async.c')
| -rw-r--r-- | libguile/async.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/libguile/async.c b/libguile/async.c index 5d06c1f77..e3b7d33f3 100644 --- a/libguile/async.c +++ b/libguile/async.c @@ -48,6 +48,7 @@ #include "libguile/throw.h" #include "libguile/root.h" #include "libguile/smob.h" +#include "libguile/lang.h" #include "libguile/validate.h" #include "libguile/async.h" @@ -128,7 +129,7 @@ scm_asyncs_pending () { SCM pos; pos = scm_asyncs; - while (!SCM_NULLP (pos)) + while (!SCM_NULL_OR_NIL_P (pos)) { SCM a = SCM_CAR (pos); if (ASYNC_GOT_IT (a)) @@ -356,7 +357,7 @@ SCM_DEFINE (scm_run_asyncs, "run-asyncs", 1, 0, 0, #else scm_asyncs_pending_p = 0; #endif - while (! SCM_NULLP (list_of_a)) + while (! SCM_NULL_OR_NIL_P (list_of_a)) { SCM a; SCM_VALIDATE_CONS (1, list_of_a); @@ -385,7 +386,7 @@ SCM_DEFINE (scm_noop, "noop", 0, 0, 1, #define FUNC_NAME s_scm_noop { SCM_VALIDATE_REST_ARGUMENT (args); - return (SCM_NULLP (args) ? SCM_BOOL_F : SCM_CAR (args)); + return (SCM_NULL_OR_NIL_P (args) ? SCM_BOOL_F : SCM_CAR (args)); } #undef FUNC_NAME |