diff options
| author | Andy Wingo <wingo@pobox.com> | 2014-04-14 15:14:26 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2014-04-14 15:14:26 +0200 |
| commit | 8de051da47e8f0f56a13bde6a4b37ece5f9c81cf (patch) | |
| tree | eb2245418fce972f4e0cec507d6aa00b48ce5f13 /libguile/frames.h | |
| parent | 44d9705464d8f54111ed8a8a90d76f0c774e7184 (diff) | |
| download | guile-8de051da47e8f0f56a13bde6a4b37ece5f9c81cf.tar.gz | |
scm_c_make_frame takes struct scm_frame as arg
* libguile/frames.h:
* libguile/frames.c (scm_c_make_frame): Adapt to take a const struct
scm_frame as the argument. Adapt callers.
* libguile/continuations.c:
* libguile/stacks.c: Adapt callers.
Diffstat (limited to 'libguile/frames.h')
| -rw-r--r-- | libguile/frames.h | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/libguile/frames.h b/libguile/frames.h index bc3cca956..e4a75458b 100644 --- a/libguile/frames.h +++ b/libguile/frames.h @@ -167,9 +167,8 @@ enum scm_vm_frame_kind SCM_INTERNAL SCM* scm_i_frame_stack_base (SCM frame); SCM_INTERNAL scm_t_ptrdiff scm_i_frame_offset (SCM frame); -SCM_INTERNAL SCM scm_c_make_frame (enum scm_vm_frame_kind vm_frame_kind, - void *stack_holder, scm_t_ptrdiff fp_offset, - scm_t_ptrdiff sp_offset, scm_t_uint32 *ip); +SCM_INTERNAL SCM scm_c_make_frame (enum scm_vm_frame_kind kind, + const struct scm_frame *frame); SCM_INTERNAL int scm_c_frame_previous (enum scm_vm_frame_kind kind, struct scm_frame *frame); |