diff options
Diffstat (limited to 'libguile/stacks.c')
-rw-r--r-- | libguile/stacks.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/libguile/stacks.c b/libguile/stacks.c index 3f3f132ce..c3ea624ce 100644 --- a/libguile/stacks.c +++ b/libguile/stacks.c @@ -276,6 +276,7 @@ SCM_DEFINE (scm_make_stack, "make-stack", 1, 0, 1, /* FIXME: is this even possible? */ if (scm_is_true (frame) + && SCM_PROGRAM_P (scm_frame_procedure (frame)) && SCM_PROGRAM_IS_BOOT (scm_frame_procedure (frame))) frame = scm_frame_previous (frame); |