mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 16:50:21 +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");
}