diff options
| author | Andy Wingo <wingo@pobox.com> | 2008-09-26 12:03:36 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2008-09-26 12:03:36 +0200 |
| commit | 107139eaadab946e9713748cdeacd07b22a181db (patch) | |
| tree | 21461e1e7cac758cda42199a52c1aa1fbc3787f7 /libguile/debug.h | |
| parent | 99b1dd09ccba248261b679657519e6a5b2b76560 (diff) | |
| download | guile-107139eaadab946e9713748cdeacd07b22a181db.tar.gz | |
actually compile start-stack to something useful
* ice-9/boot-9.scm (start-stack): Define as a defmacro instead of an acro
in C. We have a way to delay evaluation of the exp, after all: putting
it in a thunk is sufficient.
* libguile/debug.h:
* libguile/debug.c (scm_sys_start_stack): Renamed from scm_start_stack,
and exposed to the user. Takes a thunk instead of an expression +
environment.
(scm_m_start_stack): Remove this acro.
* module/language/scheme/translate.scm (custom-transformer-table): Remove
the start-stack special case.
Diffstat (limited to 'libguile/debug.h')
| -rw-r--r-- | libguile/debug.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/debug.h b/libguile/debug.h index 607716230..4e94b3c15 100644 --- a/libguile/debug.h +++ b/libguile/debug.h @@ -138,7 +138,7 @@ SCM_API scm_t_bits scm_tc16_memoized; SCM_API SCM scm_debug_object_p (SCM obj); SCM_API SCM scm_local_eval (SCM exp, SCM env); SCM_API SCM scm_reverse_lookup (SCM env, SCM data); -SCM_API SCM scm_start_stack (SCM info_id, SCM exp, SCM env); +SCM_API SCM scm_sys_start_stack (SCM info_id, SCM thunk); SCM_API SCM scm_procedure_environment (SCM proc); SCM_API SCM scm_procedure_source (SCM proc); SCM_API SCM scm_procedure_name (SCM proc); |