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/vm.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/vm.c')
-rw-r--r-- | libguile/vm.c | 6 |
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, |