summaryrefslogtreecommitdiff
path: root/libguile/procprop.c
diff options
context:
space:
mode:
authorJim Blandy <jimb@red-bean.com>1997-02-04 21:59:40 +0000
committerJim Blandy <jimb@red-bean.com>1997-02-04 21:59:40 +0000
commit4f4383ab5cb42f587d8120cd0170cbf94307f7e0 (patch)
treef46b143453a4f165c29f1bfef1d82cdbae6bc357 /libguile/procprop.c
parent48b96f4b0418d2bebeaa5c49a9aa51270ab86415 (diff)
downloadguile-4f4383ab5cb42f587d8120cd0170cbf94307f7e0.tar.gz
Change from Thomas Morgan:
* 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.
Diffstat (limited to 'libguile/procprop.c')
-rw-r--r--libguile/procprop.c6
1 files changed, 4 insertions, 2 deletions
diff --git a/libguile/procprop.c b/libguile/procprop.c
index 42ca7dbd9..686a26052 100644
--- a/libguile/procprop.c
+++ b/libguile/procprop.c
@@ -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);
}