mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 15:00:21 +02:00
Code Activity

Remove unused vm_error_unbound

Browse source 
* libguile/vm.c: Remove unused function.
This commit is contained in:
Andy Wingo 2018-06-11 21:21:30 +02:00
parent dbe5a7edc6
commit 3b463516ef
1 changed files with 0 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

9
libguile/vm.c
View file

@ -429,7 +429,6 @@ static void vm_throw_with_value_and_data (SCM val, SCM key_subr_and_message) SCM
static void vm_error (const char *msg, SCM arg) SCM_NORETURN; static void vm_error (const char *msg, SCM arg) SCM_NORETURN;
static void vm_error_bad_instruction (scm_t_uint32 inst) SCM_NORETURN SCM_NOINLINE; static void vm_error_bad_instruction (scm_t_uint32 inst) SCM_NORETURN SCM_NOINLINE;
static void vm_error_unbound (SCM sym) SCM_NORETURN SCM_NOINLINE;
static void vm_error_apply_to_non_list (SCM x) SCM_NORETURN SCM_NOINLINE; static void vm_error_apply_to_non_list (SCM x) SCM_NORETURN SCM_NOINLINE;
static void vm_error_kwargs_missing_value (SCM proc, SCM kw) SCM_NORETURN SCM_NOINLINE; static void vm_error_kwargs_missing_value (SCM proc, SCM kw) SCM_NORETURN SCM_NOINLINE;
static void vm_error_kwargs_invalid_keyword (SCM proc, SCM obj) SCM_NORETURN SCM_NOINLINE; static void vm_error_kwargs_invalid_keyword (SCM proc, SCM obj) SCM_NORETURN SCM_NOINLINE;
@ -490,14 +489,6 @@ vm_error_bad_instruction (scm_t_uint32 inst)
vm_error ("VM: Bad instruction: ~s", scm_from_uint32 (inst)); vm_error ("VM: Bad instruction: ~s", scm_from_uint32 (inst));
} }
static void
vm_error_unbound (SCM sym)
{
scm_error_scm (scm_misc_error_key, SCM_BOOL_F,
scm_from_latin1_string ("Unbound variable: ~s"),
scm_list_1 (sym), SCM_BOOL_F);
}
static void static void
vm_error_apply_to_non_list (SCM x) vm_error_apply_to_non_list (SCM x)
{ {