diff options
author | Andy Wingo <wingo@pobox.com> | 2015-11-27 15:54:51 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2015-12-01 11:30:54 +0100 |
commit | 58153e3a08c89fd9cc84dbf65e1df27119986cca (patch) | |
tree | 3e77d5e70d1cfd5227089ee667ae7367b85be87a /libguile/frames.c | |
parent | 3582787cb032da4d3a722bfb00882e6d992b0c87 (diff) | |
download | guile-58153e3a08c89fd9cc84dbf65e1df27119986cca.tar.gz |
Remove frame-procedure
* libguile/frames.h:
* libguile/frames.c (scm_frame_procedure): Remove.
* test-suite/tests/eval.test ("stacks"): Adapt test.
* NEWS: Add news item.
* doc/ref/api-debug.texi (Frames): Document frame-procedure-name instead
of frame-procedure.
Diffstat (limited to 'libguile/frames.c')
-rw-r--r-- | libguile/frames.c | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/libguile/frames.c b/libguile/frames.c index 7492adfb2..2eae45fcd 100644 --- a/libguile/frames.c +++ b/libguile/frames.c @@ -144,19 +144,6 @@ scm_c_frame_closure (enum scm_vm_frame_kind kind, const struct scm_frame *frame) return SCM_BOOL_F; } -SCM_DEFINE (scm_frame_procedure, "frame-procedure", 1, 0, 0, - (SCM frame), - "") -#define FUNC_NAME s_scm_frame_procedure -{ - SCM_VALIDATE_VM_FRAME (1, frame); - - /* FIXME: Retrieve procedure from address? */ - return scm_c_frame_closure (SCM_VM_FRAME_KIND (frame), - SCM_VM_FRAME_DATA (frame)); -} -#undef FUNC_NAME - static SCM frame_procedure_name_var; static void |