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.h | |
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.h')
-rw-r--r-- | libguile/debug.h | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/libguile/debug.h b/libguile/debug.h index 6a1ee5a61..7c1d02f5c 100644 --- a/libguile/debug.h +++ b/libguile/debug.h @@ -3,7 +3,7 @@ #ifndef SCM_DEBUG_H #define SCM_DEBUG_H -/* Copyright (C) 1995,1996,1998,1999,2000,2001,2002,2004,2008,2009 +/* Copyright (C) 1995,1996,1998,1999,2000,2001,2002,2004,2008,2009,2010 * Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or @@ -42,7 +42,6 @@ typedef union scm_t_debug_info SCM_API SCM scm_reverse_lookup (SCM env, SCM data); -SCM_API SCM scm_sys_start_stack (SCM info_id, SCM thunk); SCM_API SCM scm_procedure_source (SCM proc); SCM_API SCM scm_procedure_name (SCM proc); SCM_API SCM scm_with_traps (SCM thunk); |