diff options
Diffstat (limited to 'libguile/procprop.c')
-rw-r--r-- | libguile/procprop.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/procprop.c b/libguile/procprop.c index 89cc6c2f7..942ce16e6 100644 --- a/libguile/procprop.c +++ b/libguile/procprop.c @@ -324,7 +324,7 @@ SCM_DEFINE (scm_procedure_source, "procedure-source", 1, 0, 0, return src; if (SCM_STRUCTP (proc) && SCM_STRUCT_APPLICABLE_P (proc) - && SCM_HEAP_OBJECT_P ((proc = SCM_STRUCT_PROCEDURE (proc)))) + && SCM_THOB_P ((proc = SCM_STRUCT_PROCEDURE (proc)))) continue; } while (0); |