summaryrefslogtreecommitdiff
path: root/libguile/debug.h
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2009-03-29 17:15:25 -0700
committerAndy Wingo <wingo@pobox.com>2009-04-17 15:20:16 +0200
commit4e237f1460c06c8e13dd2db4a2c690342a532664 (patch)
tree8b7f4b321b03c2e476354978eb2ddb6e3e43b375 /libguile/debug.h
parente02e84deedacc2209e05b935742cb8268f5f0f9a (diff)
downloadguile-4e237f1460c06c8e13dd2db4a2c690342a532664.tar.gz
thread the module through syntax-case's expansion
* libguile/debug.h: * libguile/debug.c (scm_procedure_module): New procedure, returns the module that was current when the given procedure was defined. Used by syncase to scope free identifiers. * module/ice-9/psyntax-pp.scm: Recompiled. * module/ice-9/psyntax.scm: Thread the module through the syntax expansion. This is harder than it would appear because in many places the different components of syntax objects are destructured. * module/ice-9/syncase.scm (guile-macro): Adapt to new signature for syntax transformer functions.
Diffstat (limited to 'libguile/debug.h')
-rw-r--r--libguile/debug.h1
1 files changed, 1 insertions, 0 deletions
diff --git a/libguile/debug.h b/libguile/debug.h
index 4e94b3c15..4d16fd83a 100644
--- a/libguile/debug.h
+++ b/libguile/debug.h
@@ -140,6 +140,7 @@ SCM_API SCM scm_local_eval (SCM exp, SCM env);
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_environment (SCM proc);
+SCM_API SCM scm_procedure_module (SCM proc);
SCM_API SCM scm_procedure_source (SCM proc);
SCM_API SCM scm_procedure_name (SCM proc);
SCM_API SCM scm_memoized_environment (SCM m);