diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2003-03-18 19:06:03 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2003-03-18 19:06:03 +0000 |
commit | 5c9e7dad75a4b17581a64dcbee1a3e7dbcddaa84 (patch) | |
tree | 9608753a4752b308466a3664f2e600ebe202423c | |
parent | c31142eefdf4a6447e18f52e7c528037b5694d9a (diff) | |
download | guile-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/ChangeLog | 6 | ||||
-rw-r--r-- | 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 <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; /* |