From ecbef96687363cbf2eadeaaf8fab8d8efd33f944 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Thu, 31 Oct 2013 11:30:53 +0100 Subject: [PATCH] Fix bytevector error messages. * libguile/vm-engine.c (BV_FIXABLE_INT_SET, BV_INT_SET): (BV_FLOAT_SET): Fix instruction names in error messages. --- libguile/vm-engine.c | 6 +++--- 1 file 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); \ \