diff options
Diffstat (limited to 'libguile/debug.c')
-rw-r--r-- | libguile/debug.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/debug.c b/libguile/debug.c index 91eef165b..0310ffbe1 100644 --- a/libguile/debug.c +++ b/libguile/debug.c @@ -138,7 +138,7 @@ SCM_DEFINE (scm_procedure_name, "procedure-name", 1, 0, 0, { SCM_VALIDATE_PROC (1, proc); switch (SCM_TYP7 (proc)) { - case scm_tcs_subrs: + case scm_tc7_gsubr: return SCM_SUBR_NAME (proc); default: { |