* modules.c, modules.h (scm_resolve_module): New function.

diff --git a/libguile/modules.c b/libguile/modules.c
index 649f1a6..9c0278a 100644 (file)
--- a/libguile/modules.c
+++ b/libguile/modules.c
@@ -114,6 +114,14 @@ scm_module_lookup_closure (SCM module)
                    SCM_EOL);
 }
 
+static SCM resolve_module;
+
+SCM
+scm_resolve_module (SCM name)
+{
+  return scm_apply (SCM_CDR (resolve_module), SCM_LIST1 (name), SCM_EOL);
+}
+
 static SCM try_module_autoload;
 
 SCM
@@ -139,5 +147,6 @@ scm_post_boot_init_modules ()
   make_modules_in = scm_intern0 ("make-modules-in");
   beautify_user_module_x = scm_intern0 ("beautify-user-module!");
   module_eval_closure = scm_intern0 ("module-eval-closure");
+  resolve_module = scm_intern0 ("resolve-module");
   try_module_autoload = scm_intern0 ("try-module-autoload");
 }

diff --git a/libguile/modules.h b/libguile/modules.h
index a4f1536..c1db409 100644 (file)
--- a/libguile/modules.h
+++ b/libguile/modules.h
@@ -48,11 +48,13 @@
 
 \f
 
+extern SCM scm_the_root_module (void);
 extern SCM scm_selected_module (void);
 extern SCM scm_select_module (SCM module);
 extern SCM scm_make_module (SCM name);
 extern SCM scm_ensure_user_module (SCM name);
 extern SCM scm_module_lookup_closure (SCM module);
+extern SCM scm_resolve_module (SCM name);
 extern SCM scm_load_scheme_module (SCM name);
 extern void scm_init_modules (void);
 extern void scm_post_boot_init_modules (void);