diff options
Diffstat (limited to 'libguile/modules.c')
-rw-r--r-- | libguile/modules.c | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/libguile/modules.c b/libguile/modules.c index e653571bb..c48c2e8a0 100644 --- a/libguile/modules.c +++ b/libguile/modules.c @@ -561,8 +561,10 @@ scm_current_module_lookup_closure () SCM_SYMBOL (sym_sys_pre_modules_transformer, "%pre-modules-transformer"); -SCM -scm_module_transformer (SCM module) +SCM_DEFINE (scm_module_transformer, "module-transformer", 1, 0, 0, + (SCM module), + "Returns the syntax expander for the given module.") +#define FUNC_NAME s_scm_module_transformer { if (SCM_UNLIKELY (scm_is_false (module))) { SCM v = scm_hashq_ref (scm_pre_modules_obarray, @@ -574,8 +576,12 @@ scm_module_transformer (SCM module) return SCM_VARIABLE_REF (v); } else - return SCM_MODULE_TRANSFORMER (module); + { + SCM_VALIDATE_MODULE (SCM_ARG1, module); + return SCM_MODULE_TRANSFORMER (module); + } } +#undef FUNC_NAME SCM scm_current_module_transformer () |