From cabe682ce632e7d657774859ced86d6c728fe440 Mon Sep 17 00:00:00 2001 From: "Greg J. Badros" Date: Mon, 3 Jan 2000 16:26:28 +0000 Subject: * dynl-vms.c, debug.c, coop-threads.c, backtrace.c, eval.c: More SCM_NIMP tests that were redundant are now eliminated. Patches from Dirk Hermann applied by hand. --- libguile/debug.c | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) (limited to 'libguile/debug.c') diff --git a/libguile/debug.c b/libguile/debug.c index 60be1c7c1..b59c9ffa8 100644 --- a/libguile/debug.c +++ b/libguile/debug.c @@ -274,8 +274,7 @@ GUILE_PROC (scm_gloc_p, "gloc?", 1, 0, 0, "") #define FUNC_NAME s_scm_gloc_p { - return SCM_BOOL((SCM_NIMP (obj) - && SCM_MEMOIZEDP (obj) + return SCM_BOOL((SCM_MEMOIZEDP (obj) && (SCM_MEMOIZED_EXP (obj) & 7) == 1)); } #undef FUNC_NAME @@ -540,10 +539,8 @@ static SCM scm_m_start_stack (SCM exp, SCM env) { exp = SCM_CDR (exp); - SCM_ASSERT (SCM_NIMP (exp) - && SCM_ECONSP (exp) - && SCM_NIMP (SCM_CDR (exp)) - && SCM_ECONSP (SCM_CDR (exp)) + SCM_ASSERT (SCM_ECONSP (exp) + && SCM_ECONSP (SCM_CDR (exp)) && SCM_NULLP (SCM_CDDR (exp)), exp, SCM_WNA, -- cgit v1.2.3