From 107139eaadab946e9713748cdeacd07b22a181db Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 26 Sep 2008 12:03:36 +0200 Subject: 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. --- libguile/debug.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'libguile/debug.h') 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); -- cgit v1.2.3