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/debug.c | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'libguile/debug.c') diff --git a/libguile/debug.c b/libguile/debug.c index dd2c13ff8..8d80b01d4 100644 --- a/libguile/debug.c +++ b/libguile/debug.c @@ -166,7 +166,7 @@ GUILE_PROC (scm_memoized_p, "memoized?", 1, 0, 0, "") #define FUNC_NAME s_scm_memoized_p { - return SCM_BOOL(SCM_NIMP (obj) && SCM_MEMOIZEDP (obj)); + return SCM_BOOL(SCM_MEMOIZEDP (obj)); } #undef FUNC_NAME @@ -256,7 +256,7 @@ GUILE_PROC (scm_make_gloc, "make-gloc", 1, 1, 0, #define FUNC_NAME s_scm_make_gloc { #if 1 /* Unsafe */ - if (SCM_NIMP (var) && SCM_CONSP (var)) + if (SCM_CONSP (var)) var = scm_cons (SCM_BOOL_F, var); else #endif @@ -308,7 +308,7 @@ GUILE_PROC (scm_memcons, "memcons", 2, 1, 0, "") #define FUNC_NAME s_scm_memcons { - if (SCM_NIMP (car) && SCM_MEMOIZEDP (car)) + if (SCM_MEMOIZEDP (car)) { /*fixme* environments may be two different but equal top-level envs */ if (!SCM_UNBNDP (env) && SCM_MEMOIZED_ENV (car) != env) @@ -318,7 +318,7 @@ GUILE_PROC (scm_memcons, "memcons", 2, 1, 0, env = SCM_MEMOIZED_ENV (car); car = SCM_MEMOIZED_EXP (car); } - if (SCM_NIMP (cdr) && SCM_MEMOIZEDP (cdr)) + if (SCM_MEMOIZEDP (cdr)) { if (!SCM_UNBNDP (env) && SCM_MEMOIZED_ENV (cdr) != env) SCM_MISC_ERROR ("environment mismatch arg2 <-> arg3", @@ -500,11 +500,11 @@ SCM scm_reverse_lookup (SCM env, SCM data) { SCM names, values; - while (SCM_NIMP (env) && SCM_CONSP (SCM_CAR (env))) + while (SCM_CONSP (SCM_CAR (env))) { names = SCM_CAAR (env); values = SCM_CDAR (env); - while (SCM_NIMP (names) && SCM_CONSP (names)) + while (SCM_CONSP (names)) { if (SCM_CAR (values) == data) return SCM_CAR (names); @@ -572,7 +572,7 @@ GUILE_PROC (scm_debug_object_p, "debug-object?", 1, 0, 0, "") #define FUNC_NAME s_scm_debug_object_p { - return SCM_BOOL(SCM_NIMP (obj) && SCM_DEBUGOBJP (obj)); + return SCM_BOOL(SCM_DEBUGOBJP (obj)); } #undef FUNC_NAME -- cgit v1.2.3