diff options
author | Andy Wingo <wingo@pobox.com> | 2010-03-07 22:37:57 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-03-09 21:32:56 +0100 |
commit | a6cd35551023d72703cf05a98e42e9dd6a75d48f (patch) | |
tree | f847d15c695e6114b5dd1d336632a093b4e613ce /libguile/debug.c | |
parent | 5c606217a4bdd2e918d224b12fe576eff4e561c7 (diff) | |
download | guile-a6cd35551023d72703cf05a98e42e9dd6a75d48f.tar.gz |
%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.
Diffstat (limited to 'libguile/debug.c')
-rw-r--r-- | libguile/debug.c | 9 |
1 files changed, 0 insertions, 9 deletions
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 */ |