summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/modules.c9
-rw-r--r--libguile/modules.h2
2 files changed, 11 insertions, 0 deletions
diff --git a/libguile/modules.c b/libguile/modules.c
index 649f1a62b..9c0278ad1 100644
--- 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 a4f153665..c1db409e5 100644
--- a/libguile/modules.h
+++ b/libguile/modules.h
@@ -48,11 +48,13 @@
+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);