From 5c9e7dad75a4b17581a64dcbee1a3e7dbcddaa84 Mon Sep 17 00:00:00 2001 From: Dirk Herrmann Date: Tue, 18 Mar 2003 19:06:03 +0000 Subject: [PATCH] * procs.c (scm_procedure_documentation): Removed redundant SCM_NIMP test and replaced other calls to SCM_IMP by more explicit predicates. --- libguile/ChangeLog | 6 ++++++ libguile/procs.c | 8 ++++---- 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/libguile/ChangeLog b/libguile/ChangeLog index afb2bcdbd..ea3cf9d04 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -1,3 +1,9 @@ +2003-03-18 Dirk Herrmann + + * procs.c (scm_procedure_documentation): Removed redundant + SCM_NIMP test and replaced other calls to SCM_IMP by more explicit + predicates. + 2003-03-11 Mikael Djurfeldt * list.c, list.h (scm_filter, scm_filter_x): New functions. diff --git a/libguile/procs.c b/libguile/procs.c index 7269fa558..2350825c6 100644 --- a/libguile/procs.c +++ b/libguile/procs.c @@ -273,19 +273,19 @@ SCM_DEFINE (scm_procedure_documentation, "procedure-documentation", 1, 0, 0, #define FUNC_NAME s_scm_procedure_documentation { SCM code; - SCM_ASSERT (SCM_EQ_P (scm_procedure_p (proc), SCM_BOOL_T) && SCM_NIMP (proc), + SCM_ASSERT (SCM_EQ_P (scm_procedure_p (proc), SCM_BOOL_T), proc, SCM_ARG1, FUNC_NAME); switch (SCM_TYP7 (proc)) { case scm_tcs_closures: code = SCM_CLOSURE_BODY (proc); - if (SCM_IMP (SCM_CDR (code))) + if (SCM_NULLP (SCM_CDR (code))) return SCM_BOOL_F; code = SCM_CAR (code); - if (SCM_IMP (code)) - return SCM_BOOL_F; if (SCM_STRINGP (code)) return code; + else + return SCM_BOOL_F; default: return SCM_BOOL_F; /* -- 2.20.1