diff options
Diffstat (limited to 'libguile/modules.c')
-rw-r--r-- | libguile/modules.c | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/libguile/modules.c b/libguile/modules.c index 45c9c83bf..cae2d1747 100644 --- a/libguile/modules.c +++ b/libguile/modules.c @@ -144,6 +144,15 @@ scm_module_lookup_closure (SCM module) return SCM_MODULE_EVAL_CLOSURE (module); } +SCM +scm_current_module_lookup_closure () +{ + if (scm_module_system_booted_p) + return scm_module_lookup_closure (scm_current_module ()); + else + return SCM_BOOL_F; +} + static SCM resolve_module; SCM |