mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

* procs.c (scm_procedure_documentation): Removed redundant

Browse source 
SCM_NIMP test and replaced other calls to SCM_IMP by more explicit
	predicates.
This commit is contained in:
Dirk Herrmann 2003-03-18 19:06:03 +00:00
parent c31142eefd
commit 5c9e7dad75
2 changed files with 10 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/ChangeLog
View file

@ -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.

8
libguile/procs.c
View file

@ -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;
/*