diff options
author | Andy Wingo <wingo@pobox.com> | 2009-03-29 17:15:25 -0700 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2009-04-17 15:20:16 +0200 |
commit | 4e237f1460c06c8e13dd2db4a2c690342a532664 (patch) | |
tree | 8b7f4b321b03c2e476354978eb2ddb6e3e43b375 /libguile/debug.h | |
parent | e02e84deedacc2209e05b935742cb8268f5f0f9a (diff) | |
download | guile-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.h | 1 |
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); |