summaryrefslogtreecommitdiff
path: root/libguile/async.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/async.c')
-rw-r--r--libguile/async.c7
1 files changed, 2 insertions, 5 deletions
diff --git a/libguile/async.c b/libguile/async.c
index aa3bb9ff9..6e59aa68a 100644
--- a/libguile/async.c
+++ b/libguile/async.c
@@ -348,8 +348,7 @@ SCM_DEFINE (scm_run_asyncs, "run-asyncs", 1, 0, 0,
struct scm_async * it;
SCM_VALIDATE_CONS (1,list_of_a);
a = SCM_CAR (list_of_a);
- SCM_ASSERT (SCM_ASYNCP (a), a, SCM_ARG1, FUNC_NAME);
- it = SCM_ASYNC (a);
+ SCM_VALIDATE_ASYNC_COPY (SCM_ARG1,a,it);
scm_mask_ints = 1;
if (it->got_it)
{
@@ -371,9 +370,7 @@ SCM_DEFINE (scm_noop, "noop", 0, 0, 1,
"")
#define FUNC_NAME s_scm_noop
{
- return (SCM_NULLP (args)
- ? SCM_BOOL_F
- : SCM_CAR (args));
+ return (SCM_NULLP (args) ? SCM_BOOL_F : SCM_CAR (args));
}
#undef FUNC_NAME