summaryrefslogtreecommitdiff
path: root/libguile/modules.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2001-02-11 18:14:34 +0000
committerMarius Vollmer <mvo@zagadka.de>2001-02-11 18:14:34 +0000
commit9e57344b1d19957afcaefadb8b30e0e9070e894a (patch)
tree5ef03e3c00b23cb8312bc7d2943936cdd41e788c /libguile/modules.c
parent4163eb7236d7a2bf0429844f20eeeb482e938ecb (diff)
downloadguile-9e57344b1d19957afcaefadb8b30e0e9070e894a.tar.gz
* modules.h. modules.c (scm_current_module_lookup_closure): New
function.
Diffstat (limited to 'libguile/modules.c')
-rw-r--r--libguile/modules.c9
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