diff options
Diffstat (limited to 'libguile/procprop.c')
-rw-r--r-- | libguile/procprop.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/libguile/procprop.c b/libguile/procprop.c index dcbfba794..c461edd73 100644 --- a/libguile/procprop.c +++ b/libguile/procprop.c @@ -127,11 +127,9 @@ scm_i_procedure_arity (SCM proc) r = 1; break; } - else if (!SCM_I_OPERATORP (proc)) + else if (!SCM_I_ENTITYP (proc)) return SCM_BOOL_F; - proc = (SCM_I_ENTITYP (proc) - ? SCM_ENTITY_PROCEDURE (proc) - : SCM_OPERATOR_PROCEDURE (proc)); + proc = SCM_ENTITY_PROCEDURE (proc); a -= 1; goto loop; default: |