mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-29 22:40:34 +02:00
Code Activity

refactor to resolve_variable

Browse source 
* libguile/vm.c (resolve_variable): Slight refactor.
This commit is contained in:
Andy Wingo 2012-05-28 12:25:43 +02:00
parent a0ec1ca116
commit b782ed0137
1 changed files with 13 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

29
libguile/vm.c
View file

@ -600,30 +600,27 @@ static SCM boot_continuation;
*/
static SCM
resolve_variable (SCM what, SCM program_module)
resolve_variable (SCM what, SCM module)
{
if (SCM_LIKELY (scm_is_symbol (what)))
{
if (scm_is_true (program_module))
return scm_module_lookup (program_module, what);
if (scm_is_true (module))
return scm_module_lookup (module, what);
else
return scm_module_lookup (scm_the_root_module (), what);
}
else
{
SCM mod;
/* compilation of @ or @@
`what' is a three-element list: (MODNAME SYM INTERFACE?)
INTERFACE? is #t if we compiled @ or #f if we compiled @@
*/
mod = scm_resolve_module (SCM_CAR (what));
if (scm_is_true (SCM_CADDR (what)))
mod = scm_module_public_interface (mod);
if (scm_is_false (mod))
scm_misc_error (NULL, "no such module: ~S",
scm_list_1 (SCM_CAR (what)));
/* might longjmp */
return scm_module_lookup (mod, SCM_CADR (what));
SCM modname, sym, public;
modname = SCM_CAR (what);
sym = SCM_CADR (what);
public = SCM_CADDR (what);
if (scm_is_true (public))
return scm_public_lookup (modname, sym);
else
return scm_private_lookup (modname, sym);
}
}