mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 08:40:19 +02:00
Code Activity

Identify boot continuations by code, not closure

Browse source 
* 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.
This commit is contained in:
Andy Wingo 2015-11-26 16:36:22 +01:00
parent d729a0dc75
commit 02fc5a772b
4 changed files with 10 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/vm.c
View file

@ -661,6 +661,12 @@ static const scm_t_uint32 vm_builtin_call_with_current_continuation_code[] = {
};
int
scm_i_vm_is_boot_continuation_code (scm_t_uint32 *ip)
{
return ip == vm_boot_continuation_code;
}
static SCM
scm_vm_builtin_ref (unsigned idx)
{