diff options
author | Andy Wingo <wingo@pobox.com> | 2018-06-11 21:21:30 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2018-06-11 21:21:30 +0200 |
commit | 3b463516ef2d4428ae51ff81e72e87a210289673 (patch) | |
tree | 662cca1625da7acafa4f99f7f5aa28d2155f12e0 | |
parent | dbe5a7edc63dfc2760b81049f02420b1b0a4f6e4 (diff) | |
download | guile-3b463516ef2d4428ae51ff81e72e87a210289673.tar.gz |
Remove unused vm_error_unbound
* libguile/vm.c: Remove unused function.
-rw-r--r-- | libguile/vm.c | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/libguile/vm.c b/libguile/vm.c index 7ebebd1c6..b4bcbe36e 100644 --- a/libguile/vm.c +++ b/libguile/vm.c @@ -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_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_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; @@ -491,14 +490,6 @@ vm_error_bad_instruction (scm_t_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 vm_error_apply_to_non_list (SCM x) { scm_error (scm_arg_type_key, "apply", "Apply to non-list: ~S", |