diff options
author | Andy Wingo <wingo@pobox.com> | 2009-12-15 00:20:47 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2009-12-15 00:22:02 +0100 |
commit | 93dbc31b9aa9442ad49cf41677bee6e9f1d24306 (patch) | |
tree | 8623d93229abde54753eb2e3de75404a94ece118 /libguile/frames.h | |
parent | 5b98517a652ea51cbb0fd03e87a50c0b3add9707 (diff) | |
download | guile-93dbc31b9aa9442ad49cf41677bee6e9f1d24306.tar.gz |
expose frame-previous, once again
* libguile/frames.h:
* libguile/frames.c (scm_frame_previous): Rename from scm_c_frame_prev,
and expose to Scheme. Skip boot frames.
* libguile/stacks.c (stack_depth, narrow_stack, scm_make_stack)
(scm_stack_ref): Adjust for scm_frame_previous skipping boot frames.
Diffstat (limited to 'libguile/frames.h')
-rw-r--r-- | libguile/frames.h | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/libguile/frames.h b/libguile/frames.h index 45ade5a10..0636fe8a1 100644 --- a/libguile/frames.h +++ b/libguile/frames.h @@ -120,8 +120,7 @@ SCM_API SCM scm_frame_instruction_pointer (SCM frame); SCM_API SCM scm_frame_return_address (SCM frame); SCM_API SCM scm_frame_mv_return_address (SCM frame); SCM_API SCM scm_frame_dynamic_link (SCM frame); - -SCM_API SCM scm_c_frame_prev (SCM frame); +SCM_API SCM scm_frame_previous (SCM frame); SCM_INTERNAL void scm_bootstrap_frames (void); SCM_INTERNAL void scm_init_frames (void); |