mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

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

Browse source
This commit is contained in:
Mikael Djurfeldt 1998-11-26 17:59:15 +00:00
parent 1f60d9d237
commit 90184345a0
2 changed files with 11 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
libguile/modules.c
View file

@ -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");
}

2
libguile/modules.h
View file

@ -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);