mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 05:50:26 +02:00
Code Activity

Remove unused resolve_variable helper

Browse source 
* libguile/vm.c (resolve_variable): Remove unused helper.
This commit is contained in:
Andy Wingo 2013-11-20 19:38:06 +01:00
parent ea0cd17d11
commit 62e1660695
1 changed files with 0 additions and 35 deletions
Download patch file Download diff file Expand all files Collapse all files

35
libguile/vm.c
View file

@ -715,41 +715,6 @@ scm_i_call_with_current_continuation (SCM proc)
* VM * VM
*/ */
static SCM
resolve_variable (SCM what, SCM module)
{
if (SCM_LIKELY (scm_is_symbol (what)))
{
if (scm_is_true (module))
return scm_module_lookup (module, what);
else
return scm_module_lookup (scm_the_root_module (), what);
}
else
{
SCM modname, sym, public;
modname = SCM_CAR (what);
sym = SCM_CADR (what);
public = SCM_CADDR (what);
if (!scm_module_system_booted_p)
{
#ifdef VM_ENABLE_PARANOID_ASSERTIONS
ASSERT (scm_is_false (public));
ASSERT (scm_is_true
(scm_equal_p (modname,
scm_list_1 (scm_from_utf8_symbol ("guile")))));
#endif
return scm_lookup (sym);
}
else if (scm_is_true (public))
return scm_public_lookup (modname, sym);
else
return scm_private_lookup (modname, sym);
}
}
#define VM_MIN_STACK_SIZE (1024) #define VM_MIN_STACK_SIZE (1024)
#define VM_DEFAULT_STACK_SIZE (256 * 1024) #define VM_DEFAULT_STACK_SIZE (256 * 1024)
static size_t vm_stack_size = VM_DEFAULT_STACK_SIZE; static size_t vm_stack_size = VM_DEFAULT_STACK_SIZE;