diff options
author | Andy Wingo <wingo@pobox.com> | 2013-10-31 11:30:53 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-10-31 12:55:24 +0100 |
commit | ecbef96687363cbf2eadeaaf8fab8d8efd33f944 (patch) | |
tree | 26dc624a310069d3d697ac2ffb63ff87b6aab99b /libguile/vm-engine.c | |
parent | 7bfbc7b1c50df58a26e3ffb88f809858a03b0e11 (diff) | |
download | guile-ecbef96687363cbf2eadeaaf8fab8d8efd33f944.tar.gz |
Fix bytevector error messages.
* libguile/vm-engine.c (BV_FIXABLE_INT_SET, BV_INT_SET):
(BV_FLOAT_SET): Fix instruction names in error messages.
Diffstat (limited to 'libguile/vm-engine.c')
-rw-r--r-- | libguile/vm-engine.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/vm-engine.c b/libguile/vm-engine.c index 2f53b2092..b6b9f8fd4 100644 --- a/libguile/vm-engine.c +++ b/libguile/vm-engine.c @@ -3392,7 +3392,7 @@ RTL_VM_NAME (SCM vm, SCM program, SCM *argv, size_t nargs_) bv = LOCAL_REF (dst); \ scm_idx = LOCAL_REF (idx); \ val = LOCAL_REF (src); \ - VM_VALIDATE_BYTEVECTOR (bv, "bv-" #stem "-set"); \ + VM_VALIDATE_BYTEVECTOR (bv, "bv-" #stem "-set!"); \ i = SCM_I_INUM (scm_idx); \ int_ptr = (scm_t_ ## type *) (SCM_BYTEVECTOR_CONTENTS (bv) + i); \ \ @@ -3423,7 +3423,7 @@ RTL_VM_NAME (SCM vm, SCM program, SCM *argv, size_t nargs_) bv = LOCAL_REF (dst); \ scm_idx = LOCAL_REF (idx); \ val = LOCAL_REF (src); \ - VM_VALIDATE_BYTEVECTOR (bv, "bv-" #stem "-set"); \ + VM_VALIDATE_BYTEVECTOR (bv, "bv-" #stem "-set!"); \ i = SCM_I_INUM (scm_idx); \ int_ptr = (scm_t_ ## type *) (SCM_BYTEVECTOR_CONTENTS (bv) + i); \ \ @@ -3451,7 +3451,7 @@ RTL_VM_NAME (SCM vm, SCM program, SCM *argv, size_t nargs_) bv = LOCAL_REF (dst); \ scm_idx = LOCAL_REF (idx); \ val = LOCAL_REF (src); \ - VM_VALIDATE_BYTEVECTOR (bv, "bv-" #stem "-set"); \ + VM_VALIDATE_BYTEVECTOR (bv, "bv-" #stem "-set!"); \ i = SCM_I_INUM (scm_idx); \ float_ptr = (type *) (SCM_BYTEVECTOR_CONTENTS (bv) + i); \ \ |