diff options
-rw-r--r-- | libguile/modules.c | 9 | ||||
-rw-r--r-- | libguile/modules.h | 2 |
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); |