summaryrefslogtreecommitdiff
path: root/libguile/frames.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2015-11-27 15:54:51 +0100
committerAndy Wingo <wingo@pobox.com>2015-12-01 11:30:54 +0100
commit58153e3a08c89fd9cc84dbf65e1df27119986cca (patch)
tree3e77d5e70d1cfd5227089ee667ae7367b85be87a /libguile/frames.c
parent3582787cb032da4d3a722bfb00882e6d992b0c87 (diff)
downloadguile-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.c13
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