diff options
| author | Andy Wingo <wingo@pobox.com> | 2018-04-13 10:15:04 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2018-04-13 10:17:32 +0200 |
| commit | 0ae3d62f40f35dde06c6020ee36afb2bc4053ccf (patch) | |
| tree | b4336e9fd478b8dabc3ff6da22af60d5b5a95e0e /libguile/vm.c | |
| parent | dff85f6f9f62fae93b240f018212542a58e86437 (diff) | |
| download | guile-0ae3d62f40f35dde06c6020ee36afb2bc4053ccf.tar.gz | |
Remove implementation of atomic box ops
* libguile/vm-engine.c (VM_VALIDATE, VM_VALIDATE_ATOMIC_BOX): Remove
now-unused definitions. Remove implementations of atomic-box-ref et
al.
* libguile/vm.c (vm_error_not_a_atomic_box): Remove.
Diffstat (limited to 'libguile/vm.c')
| -rw-r--r-- | libguile/vm.c | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/libguile/vm.c b/libguile/vm.c index 3129fcb1e..7ebebd1c6 100644 --- a/libguile/vm.c +++ b/libguile/vm.c @@ -436,7 +436,6 @@ static void vm_error_kwargs_invalid_keyword (SCM proc, SCM obj) SCM_NORETURN SCM static void vm_error_kwargs_unrecognized_keyword (SCM proc, SCM kw) SCM_NORETURN SCM_NOINLINE; static void vm_error_wrong_num_args (SCM proc) SCM_NORETURN SCM_NOINLINE; static void vm_error_wrong_type_apply (SCM proc) 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_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; @@ -544,12 +543,6 @@ vm_error_wrong_type_apply (SCM proc) } static void -vm_error_not_a_atomic_box (const char *subr, SCM x) -{ - scm_wrong_type_arg_msg (subr, 1, x, "atomic box"); -} - -static void vm_error_no_values (void) { vm_error ("Zero values returned to single-valued continuation", |