mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 12:20:20 +02:00
Code Activity

Some cleanup on smob calls.

Browse source
This commit is contained in:
Keisuke Nishida 2000-12-07 07:10:26 +00:00
parent 23cc31b8ee
commit 68b069240f
5 changed files with 34 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/procprop.c
View file

@ -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);