summaryrefslogtreecommitdiff
path: root/libguile/vm.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2010-03-07 22:37:57 +0100
committerAndy Wingo <wingo@pobox.com>2010-03-09 21:32:56 +0100
commita6cd35551023d72703cf05a98e42e9dd6a75d48f (patch)
treef847d15c695e6114b5dd1d336632a093b4e613ce /libguile/vm.c
parent5c606217a4bdd2e918d224b12fe576eff4e561c7 (diff)
downloadguile-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/vm.c')
-rw-r--r--libguile/vm.c6
1 files changed, 0 insertions, 6 deletions
diff --git a/libguile/vm.c b/libguile/vm.c
index 142061185..98df0571b 100644
--- a/libguile/vm.c
+++ b/libguile/vm.c
@@ -544,12 +544,6 @@ SCM_DEFINE (scm_vm_apply, "vm-apply", 3, 0, 0,
}
#undef FUNC_NAME
-SCM
-scm_vm_call_with_new_stack (SCM vm, SCM thunk, SCM id)
-{
- return scm_c_vm_run (vm, thunk, NULL, 0);
-}
-
/* Scheme interface */
SCM_DEFINE (scm_vm_version, "vm-version", 0, 0, 0,