From f689dd6982697f592b0dd5e63dc87e516657fb25 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Wed, 27 Nov 2013 22:03:58 +0100 Subject: 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. --- libguile/vm.c | 14 -------------- 1 file changed, 14 deletions(-) (limited to 'libguile/vm.c') 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), "") -- cgit v1.2.3