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 576ca91e6..78b703bca 100644 --- a/libguile/procs.c +++ b/libguile/procs.c @@ -198,7 +198,7 @@ SCM_DEFINE (scm_procedure_p, "procedure?", 1, 0, 0, if (SCM_NIMP (obj)) switch (SCM_TYP7 (obj)) { - case scm_tcs_cons_gloc: + case scm_tcs_struct: if (!SCM_I_OPERATORP (obj)) break; case scm_tcs_closures: |