diff options
Diffstat (limited to 'libguile/vm.c')
-rw-r--r-- | libguile/vm.c | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/libguile/vm.c b/libguile/vm.c index 472076d8a..0a20f11cf 100644 --- a/libguile/vm.c +++ b/libguile/vm.c @@ -438,10 +438,7 @@ static void vm_error_wrong_type_apply (SCM proc) SCM_NORETURN SCM_NOINLINE; static void vm_error_not_a_char (const char *subr, SCM x) SCM_NORETURN SCM_NOINLINE; static void vm_error_not_a_string (const char *subr, SCM x) SCM_NORETURN SCM_NOINLINE; static void vm_error_not_a_atomic_box (const char *subr, SCM x) SCM_NORETURN SCM_NOINLINE; -static void vm_error_not_a_struct (const char *subr, SCM x) SCM_NORETURN SCM_NOINLINE; static void vm_error_out_of_range_uint64 (const char *subr, scm_t_uint64 idx) SCM_NORETURN SCM_NOINLINE; -static void vm_error_boxed_struct_field (const char *subr, scm_t_uint64 idx) SCM_NORETURN SCM_NOINLINE; -static void vm_error_unboxed_struct_field (const char *subr, scm_t_uint64 idx) SCM_NORETURN SCM_NOINLINE; static void vm_error_no_values (void) SCM_NORETURN SCM_NOINLINE; static void vm_error_not_enough_values (void) SCM_NORETURN SCM_NOINLINE; static void vm_error_wrong_number_of_values (scm_t_uint32 expected) SCM_NORETURN SCM_NOINLINE; @@ -567,30 +564,12 @@ vm_error_not_a_atomic_box (const char *subr, SCM x) } static void -vm_error_not_a_struct (const char *subr, SCM x) -{ - scm_wrong_type_arg_msg (subr, 1, x, "struct"); -} - -static void vm_error_out_of_range_uint64 (const char *subr, scm_t_uint64 idx) { scm_out_of_range (subr, scm_from_uint64 (idx)); } static void -vm_error_boxed_struct_field (const char *subr, scm_t_uint64 idx) -{ - scm_wrong_type_arg_msg (subr, 2, scm_from_uint64 (idx), "boxed field"); -} - -static void -vm_error_unboxed_struct_field (const char *subr, scm_t_uint64 idx) -{ - scm_wrong_type_arg_msg (subr, 2, scm_from_uint64 (idx), "unboxed field"); -} - -static void vm_error_no_values (void) { vm_error ("Zero values returned to single-valued continuation", |