From a6cd35551023d72703cf05a98e42e9dd6a75d48f Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Sun, 7 Mar 2010 22:37:57 +0100 Subject: %start-stack in Scheme, in terms of prompts * libguile/debug.h: * libguile/debug.c (scm_sys_start_stack): Removed, we implement this in Scheme now. * libguile/vm.h: * libguile/vm.c (scm_vm_call_with_new_stack): Likewise removed. * module/ice-9/boot-9.scm (%start-stack): Implement in terms of prompts. (%stacks): New fluid, for tracking active stacks. (start-stack): Implement using syntax-rules. --- libguile/debug.c | 9 --------- 1 file changed, 9 deletions(-) (limited to 'libguile/debug.c') diff --git a/libguile/debug.c b/libguile/debug.c index 1c86c76c0..c8e908fdf 100644 --- a/libguile/debug.c +++ b/libguile/debug.c @@ -208,15 +208,6 @@ scm_reverse_lookup (SCM env, SCM data) return SCM_BOOL_F; } -SCM_DEFINE (scm_sys_start_stack, "%start-stack", 2, 0, 0, - (SCM id, SCM thunk), - "Call @var{thunk} on an evaluator stack tagged with @var{id}.") -#define FUNC_NAME s_scm_sys_start_stack -{ - return scm_vm_call_with_new_stack (scm_the_vm (), thunk, id); -} -#undef FUNC_NAME - /* Undocumented debugging procedure */ -- cgit v1.2.3