mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

* modules.h. modules.c (scm_current_module_lookup_closure): New

Browse source 
function.
This commit is contained in:
Marius Vollmer 2001-02-11 18:14:34 +00:00
parent 4163eb7236
commit 9e57344b1d
2 changed files with 10 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
libguile/modules.c
View file

@ -144,6 +144,15 @@ scm_module_lookup_closure (SCM module)
return SCM_MODULE_EVAL_CLOSURE (module); return SCM_MODULE_EVAL_CLOSURE (module);
} }
SCM
scm_current_module_lookup_closure ()
{
if (scm_module_system_booted_p)
return scm_module_lookup_closure (scm_current_module ());
else
return SCM_BOOL_F;
}
static SCM resolve_module; static SCM resolve_module;
SCM SCM

1
libguile/modules.h
View file

@ -84,6 +84,7 @@ extern SCM scm_module_tag;
extern SCM scm_the_root_module (void); extern SCM scm_the_root_module (void);
extern SCM scm_current_module (void); extern SCM scm_current_module (void);
extern SCM scm_current_module_lookup_closure (void);
extern SCM scm_interaction_environment (void); extern SCM scm_interaction_environment (void);
extern SCM scm_set_current_module (SCM module); extern SCM scm_set_current_module (SCM module);
extern SCM scm_make_module (SCM name); extern SCM scm_make_module (SCM name);