summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2018-06-11 21:21:30 +0200
committerAndy Wingo <wingo@pobox.com>2018-06-11 21:21:30 +0200
commit3b463516ef2d4428ae51ff81e72e87a210289673 (patch)
tree662cca1625da7acafa4f99f7f5aa28d2155f12e0
parentdbe5a7edc63dfc2760b81049f02420b1b0a4f6e4 (diff)
downloadguile-3b463516ef2d4428ae51ff81e72e87a210289673.tar.gz
Remove unused vm_error_unbound
* libguile/vm.c: Remove unused function.
-rw-r--r--libguile/vm.c9
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",