48 |
#include "libguile/throw.h" |
#include "libguile/throw.h" |
49 |
#include "libguile/root.h" |
#include "libguile/root.h" |
50 |
#include "libguile/smob.h" |
#include "libguile/smob.h" |
51 |
|
#include "libguile/lang.h" |
52 |
|
|
53 |
#include "libguile/validate.h" |
#include "libguile/validate.h" |
54 |
#include "libguile/async.h" |
#include "libguile/async.h" |
129 |
{ |
{ |
130 |
SCM pos; |
SCM pos; |
131 |
pos = scm_asyncs; |
pos = scm_asyncs; |
132 |
while (!SCM_NULLP (pos)) |
while (!SCM_NULL_OR_NIL_P (pos)) |
133 |
{ |
{ |
134 |
SCM a = SCM_CAR (pos); |
SCM a = SCM_CAR (pos); |
135 |
if (ASYNC_GOT_IT (a)) |
if (ASYNC_GOT_IT (a)) |
357 |
#else |
#else |
358 |
scm_asyncs_pending_p = 0; |
scm_asyncs_pending_p = 0; |
359 |
#endif |
#endif |
360 |
while (! SCM_NULLP (list_of_a)) |
while (! SCM_NULL_OR_NIL_P (list_of_a)) |
361 |
{ |
{ |
362 |
SCM a; |
SCM a; |
363 |
SCM_VALIDATE_CONS (1, list_of_a); |
SCM_VALIDATE_CONS (1, list_of_a); |
386 |
#define FUNC_NAME s_scm_noop |
#define FUNC_NAME s_scm_noop |
387 |
{ |
{ |
388 |
SCM_VALIDATE_REST_ARGUMENT (args); |
SCM_VALIDATE_REST_ARGUMENT (args); |
389 |
return (SCM_NULLP (args) ? SCM_BOOL_F : SCM_CAR (args)); |
return (SCM_NULL_OR_NIL_P (args) ? SCM_BOOL_F : SCM_CAR (args)); |
390 |
} |
} |
391 |
#undef FUNC_NAME |
#undef FUNC_NAME |
392 |
|
|