From 02fc5a772bc95bbd70a81b8589bf261a3822f9bd Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Thu, 26 Nov 2015 16:36:22 +0100 Subject: Identify boot continuations by code, not closure * libguile/vm.h: * libguile/vm.c (scm_i_vm_is_boot_continuation_code): New internal procedure. * libguile/stacks.c (scm_make_stack): * libguile/frames.c (scm_c_frame_previous): Use new helper to identify boot frames. --- libguile/vm.h | 1 + 1 file changed, 1 insertion(+) (limited to 'libguile/vm.h') diff --git a/libguile/vm.h b/libguile/vm.h index 936633d21..2ca4f2ab4 100644 --- a/libguile/vm.h +++ b/libguile/vm.h @@ -106,6 +106,7 @@ SCM_INTERNAL SCM scm_i_vm_capture_stack (union scm_vm_stack_element *stack_top, SCM_INTERNAL int scm_i_vm_cont_to_frame (SCM cont, struct scm_frame *frame); SCM_INTERNAL void scm_i_vm_cont_print (SCM x, SCM port, scm_print_state *pstate); +SCM_INTERNAL int scm_i_vm_is_boot_continuation_code (scm_t_uint32 *ip); SCM_INTERNAL void scm_bootstrap_vm (void); SCM_INTERNAL void scm_init_vm (void); -- cgit v1.2.1