diff options
author | Andy Wingo <wingo@pobox.com> | 2013-11-20 19:38:06 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-11-20 19:38:06 +0100 |
commit | 62e16606950f2e9aae6410e90ab3bfff882a3767 (patch) | |
tree | a846470af3edda0e0b53fa6e819a46b4cb159aa0 | |
parent | ea0cd17d11fb73f79842c03b49df5c7aef4b36eb (diff) | |
download | guile-62e16606950f2e9aae6410e90ab3bfff882a3767.tar.gz |
Remove unused resolve_variable helper
* libguile/vm.c (resolve_variable): Remove unused helper.
-rw-r--r-- | libguile/vm.c | 35 |
1 files changed, 0 insertions, 35 deletions
diff --git a/libguile/vm.c b/libguile/vm.c index 125501ee9..b1b594133 100644 --- a/libguile/vm.c +++ b/libguile/vm.c @@ -715,41 +715,6 @@ scm_i_call_with_current_continuation (SCM proc) * 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_DEFAULT_STACK_SIZE (256 * 1024) static size_t vm_stack_size = VM_DEFAULT_STACK_SIZE; |