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/root.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'libguile/root.c') diff --git a/libguile/root.c b/libguile/root.c index 023990194..59ecacda5 100644 --- a/libguile/root.c +++ b/libguile/root.c @@ -119,7 +119,7 @@ scm_make_root (SCM parent) root_state = (scm_root_state *) scm_must_malloc (sizeof (scm_root_state), "scm_make_root"); - if (SCM_NIMP (parent) && SCM_ROOTP (parent)) + if (SCM_ROOTP (parent)) { memcpy (root_state, SCM_ROOT_STATE (parent), sizeof (scm_root_state)); scm_copy_fluids (root_state); -- cgit v1.2.3