summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2003-03-18 19:06:03 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2003-03-18 19:06:03 +0000
commit5c9e7dad75a4b17581a64dcbee1a3e7dbcddaa84 (patch)
tree9608753a4752b308466a3664f2e600ebe202423c
parentc31142eefdf4a6447e18f52e7c528037b5694d9a (diff)
downloadguile-5c9e7dad75a4b17581a64dcbee1a3e7dbcddaa84.tar.gz
* procs.c (scm_procedure_documentation): Removed redundant
SCM_NIMP test and replaced other calls to SCM_IMP by more explicit predicates.
-rw-r--r--libguile/ChangeLog6
-rw-r--r--libguile/procs.c8
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 <D.Herrmann@tu-bs.de>
+
+ * 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 <djurfeldt@nada.kth.se>
* 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;
/*