summaryrefslogtreecommitdiff
path: root/libguile/vm.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2013-11-27 22:03:58 +0100
committerAndy Wingo <wingo@pobox.com>2013-11-27 22:03:58 +0100
commitf689dd6982697f592b0dd5e63dc87e516657fb25 (patch)
treedb0b5079c1b0e5a1eaf6762b53bb3bd163beffab /libguile/vm.c
parent36cc0b901c57947b62118d50ab3152b65d0652f9 (diff)
downloadguile-f689dd6982697f592b0dd5e63dc87e516657fb25.tar.gz
Remove the restore-continuation-hook.
* libguile/vm.h: * libguile/vm.c: * libguile/vm-engine.c: * module/system/vm/traps.scm: * module/system/vm/vm.scm: Remove the unused and redundant restore-continuation-hook.
Diffstat (limited to 'libguile/vm.c')
-rw-r--r--libguile/vm.c14
1 files changed, 0 insertions, 14 deletions
diff --git a/libguile/vm.c b/libguile/vm.c
index 0ccc9f1c3..f9441ad20 100644
--- a/libguile/vm.c
+++ b/libguile/vm.c
@@ -167,7 +167,6 @@ static void vm_dispatch_push_continuation_hook (struct scm_vm *vp) SCM_NOINLINE;
static void vm_dispatch_pop_continuation_hook (struct scm_vm *vp, SCM *old_fp) SCM_NOINLINE;
static void vm_dispatch_next_hook (struct scm_vm *vp) SCM_NOINLINE;
static void vm_dispatch_abort_hook (struct scm_vm *vp) SCM_NOINLINE;
-static void vm_dispatch_restore_continuation_hook (struct scm_vm *vp) SCM_NOINLINE;
static void
vm_dispatch_hook (struct scm_vm *vp, int hook_num, SCM *argv, int n)
@@ -258,10 +257,6 @@ static void vm_dispatch_abort_hook (struct scm_vm *vp)
&SCM_FRAME_LOCAL (vp->fp, 1),
SCM_FRAME_NUM_LOCALS (vp->fp, vp->sp) - 1);
}
-static void vm_dispatch_restore_continuation_hook (struct scm_vm *vp)
-{
- return vm_dispatch_hook (vp, SCM_VM_RESTORE_CONTINUATION_HOOK, NULL, 0);
-}
static void
vm_abort (struct scm_vm *vp, SCM tag,
@@ -1025,15 +1020,6 @@ SCM_DEFINE (scm_vm_abort_continuation_hook, "vm-abort-continuation-hook", 0, 0,
}
#undef FUNC_NAME
-SCM_DEFINE (scm_vm_restore_continuation_hook, "vm-restore-continuation-hook", 0, 0, 0,
- (void),
- "")
-#define FUNC_NAME s_scm_vm_restore_continuation_hook
-{
- VM_DEFINE_HOOK (SCM_VM_RESTORE_CONTINUATION_HOOK);
-}
-#undef FUNC_NAME
-
SCM_DEFINE (scm_vm_trace_level, "vm-trace-level", 0, 0, 0,
(void),
"")