diff options
| author | Andy Wingo <wingo@pobox.com> | 2014-04-16 19:16:10 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2014-04-16 19:16:10 +0200 |
| commit | 4cfa92d60f0f2e8d7443617288e1a6530ab059ce (patch) | |
| tree | 58fbc044b50c85858b70586395619f8411e3e4b6 /libguile/vm.h | |
| parent | a285f38fda53f580686566613f827d5585f283df (diff) | |
| download | guile-4cfa92d60f0f2e8d7443617288e1a6530ab059ce.tar.gz | |
make-stack works on delimited continuations
* libguile/stacks.c (scm_make_stack, scm_stack_id):
* libguile/vm.c (scm_i_vm_cont_to_frame): Allow delimited continuations
as the argument to make-stack.
Diffstat (limited to 'libguile/vm.h')
| -rw-r--r-- | libguile/vm.h | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/libguile/vm.h b/libguile/vm.h index 4029c5ca6..8f88d0cd4 100644 --- a/libguile/vm.h +++ b/libguile/vm.h @@ -101,6 +101,7 @@ SCM_INTERNAL SCM scm_i_vm_capture_stack (SCM *stack_base, SCM *fp, SCM *sp, scm_t_uint32 *ra, scm_t_dynstack *dynstack, scm_t_uint32 flags); +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 void scm_bootstrap_vm (void); |