diff options
author | Jim Blandy <jimb@red-bean.com> | 1997-02-04 21:59:40 +0000 |
---|---|---|
committer | Jim Blandy <jimb@red-bean.com> | 1997-02-04 21:59:40 +0000 |
commit | 4f4383ab5cb42f587d8120cd0170cbf94307f7e0 (patch) | |
tree | f46b143453a4f165c29f1bfef1d82cdbae6bc357 /libguile/procprop.c | |
parent | 48b96f4b0418d2bebeaa5c49a9aa51270ab86415 (diff) | |
download | guile-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.c | 6 |
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); } |