From 0c95b57d77efbe82bb0ade78df5d78d6d0f2a641 Mon Sep 17 00:00:00 2001 From: "Greg J. Badros" Date: Thu, 16 Dec 1999 20:48:05 +0000 Subject: * coop-threads.c: Remove K&R function headers. * scm_validate.h: Added SCM_VALIDATE_THREAD. * *.c: Remove SCM_NIMP(X) when it is an extraneous pre-test given that SCM_FOOP macros all now include SCM_NIMP in their expansion. This simplifies lots of code, making it far more readable. --- libguile/async.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'libguile/async.c') diff --git a/libguile/async.c b/libguile/async.c index f53354dd7..db636611e 100644 --- a/libguile/async.c +++ b/libguile/async.c @@ -348,7 +348,7 @@ GUILE_PROC(scm_run_asyncs, "run-asyncs", 1, 0, 0, struct scm_async * it; SCM_VALIDATE_NIMCONS(1,list_of_a); a = SCM_CAR (list_of_a); - SCM_ASSERT (SCM_NIMP (a) && SCM_ASYNCP (a), a, SCM_ARG1, FUNC_NAME); + SCM_ASSERT (SCM_ASYNCP (a), a, SCM_ARG1, FUNC_NAME); it = SCM_ASYNC (a); scm_mask_ints = 1; if (it->got_it) -- cgit v1.2.3