diff options
author | Keisuke Nishida <kxn30@po.cwru.edu> | 2000-12-07 07:10:26 +0000 |
---|---|---|
committer | Keisuke Nishida <kxn30@po.cwru.edu> | 2000-12-07 07:10:26 +0000 |
commit | 68b069240f6039116c62a62c51ca0ea32e6ff92f (patch) | |
tree | 03143d9190c104fad783b31d785e00f96dd06645 /libguile/procprop.c | |
parent | 23cc31b8ee07cb9f18d706d8a971fda5cf0ed0c0 (diff) | |
download | guile-68b069240f6039116c62a62c51ca0ea32e6ff92f.tar.gz |
Some cleanup on smob calls.
Diffstat (limited to 'libguile/procprop.c')
-rw-r--r-- | libguile/procprop.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/procprop.c b/libguile/procprop.c index 9d9a131eb..f0ec8dd2e 100644 --- a/libguile/procprop.c +++ b/libguile/procprop.c @@ -98,7 +98,7 @@ scm_i_procedure_arity (SCM proc) r = 1; break; case scm_tc7_smob: - if (SCM_SMOB_DESCRIPTOR (proc).apply) + if (SCM_SMOB_APPLICABLE_P (proc)) { int type = SCM_SMOB_DESCRIPTOR (proc).gsubr_type; a += SCM_GSUBR_REQ (type); |