summaryrefslogtreecommitdiff
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
parent4163eb7236d7a2bf0429844f20eeeb482e938ecb (diff)
downloadguile-9e57344b1d19957afcaefadb8b30e0e9070e894a.tar.gz
* modules.h. modules.c (scm_current_module_lookup_closure): New
function.
-rw-r--r--libguile/modules.c9
-rw-r--r--libguile/modules.h1
2 files changed, 10 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
diff --git a/libguile/modules.h b/libguile/modules.h
index 57db947ba..95906261f 100644
--- a/libguile/modules.h
+++ b/libguile/modules.h
@@ -84,6 +84,7 @@ extern SCM scm_module_tag;
extern SCM scm_the_root_module (void);
extern SCM scm_current_module (void);
+extern SCM scm_current_module_lookup_closure (void);
extern SCM scm_interaction_environment (void);
extern SCM scm_set_current_module (SCM module);
extern SCM scm_make_module (SCM name);