diff options
author | Marius Vollmer <mvo@zagadka.de> | 2001-02-11 18:14:34 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2001-02-11 18:14:34 +0000 |
commit | 9e57344b1d19957afcaefadb8b30e0e9070e894a (patch) | |
tree | 5ef03e3c00b23cb8312bc7d2943936cdd41e788c | |
parent | 4163eb7236d7a2bf0429844f20eeeb482e938ecb (diff) | |
download | guile-9e57344b1d19957afcaefadb8b30e0e9070e894a.tar.gz |
* modules.h. modules.c (scm_current_module_lookup_closure): New
function.
-rw-r--r-- | libguile/modules.c | 9 | ||||
-rw-r--r-- | libguile/modules.h | 1 |
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); |