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

Change from Thomas Morgan:

Browse source 
* procprop.c (scm_procedure_properties): Convert the Scheme
boolean returned by scm_procedure_p into a C boolean before using
it as a condition for SCM_ASSERT.
(scm_procedure_property): Likewise.
This commit is contained in:
Jim Blandy 1997-02-04 21:59:40 +00:00
parent 48b96f4b04
commit 4f4383ab5c
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/procprop.c
View file

@ -72,7 +72,8 @@ SCM
scm_procedure_properties (proc)
SCM proc;
{
SCM_ASSERT (scm_procedure_p (proc), proc, SCM_ARG1, s_procedure_properties);
SCM_ASSERT (SCM_NFALSEP (scm_procedure_p (proc)),
proc, SCM_ARG1, s_procedure_properties);
if (!(SCM_NIMP (proc) && SCM_CLOSUREP (proc)))
proc = scm_stand_in_scm_proc(proc);
return SCM_PROCPROPS (proc);
@ -102,7 +103,8 @@ scm_procedure_property (p, k)
SCM assoc;
if (!(SCM_NIMP (p) && SCM_CLOSUREP (p)))
p = scm_stand_in_scm_proc(p);
SCM_ASSERT (scm_procedure_p (p), p, SCM_ARG1, s_procedure_property);
SCM_ASSERT (SCM_NFALSEP (scm_procedure_p (p)),
p, SCM_ARG1, s_procedure_property);
assoc = scm_sloppy_assq (k, SCM_PROCPROPS (p));
return (SCM_NIMP (assoc) ? SCM_CDR (assoc) : SCM_BOOL_F);
}