diff options
Diffstat (limited to 'libguile/vm.c')
-rw-r--r-- | libguile/vm.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/libguile/vm.c b/libguile/vm.c index 5ea6b2bd4..014ee65f5 100644 --- a/libguile/vm.c +++ b/libguile/vm.c @@ -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) { |