summaryrefslogtreecommitdiff
path: root/libguile/stacks.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/stacks.c')
-rw-r--r--libguile/stacks.c3
1 files changed, 1 insertions, 2 deletions
diff --git a/libguile/stacks.c b/libguile/stacks.c
index 366176b10..958103ad6 100644
--- a/libguile/stacks.c
+++ b/libguile/stacks.c
@@ -361,8 +361,7 @@ SCM_DEFINE (scm_make_stack, "make-stack", 1, 0, 1,
/* Skip initial boot frame, if any. This is possible if the frame
originates from a captured continuation. */
- if (SCM_PROGRAM_P (scm_c_frame_closure (kind, &frame))
- && SCM_PROGRAM_IS_BOOT (scm_c_frame_closure (kind, &frame))
+ if (scm_i_vm_is_boot_continuation_code (frame.ip)
&& !scm_c_frame_previous (kind, &frame))
return SCM_BOOL_F;