diff options
Diffstat (limited to 'libguile/procs.c')
-rw-r--r-- | libguile/procs.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/procs.c b/libguile/procs.c index bf965ee58..bbc80cf20 100644 --- a/libguile/procs.c +++ b/libguile/procs.c @@ -47,7 +47,7 @@ SCM_DEFINE (scm_procedure_p, "procedure?", 1, 0, 0, "Return @code{#t} if @var{obj} is a procedure.") #define FUNC_NAME s_scm_procedure_p { - return scm_from_bool (SCM_RTL_PROGRAM_P (obj) + return scm_from_bool (SCM_PROGRAM_P (obj) || (SCM_STRUCTP (obj) && SCM_STRUCT_APPLICABLE_P (obj)) || (SCM_HAS_TYP7 (obj, scm_tc7_smob) && SCM_SMOB_APPLICABLE_P (obj))); |