diff options
Diffstat (limited to 'libguile/bytevectors.c')
-rw-r--r-- | libguile/bytevectors.c | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/libguile/bytevectors.c b/libguile/bytevectors.c index 4dd66970d..2060192c6 100644 --- a/libguile/bytevectors.c +++ b/libguile/bytevectors.c @@ -328,6 +328,15 @@ scm_c_bytevector_set_x (SCM bv, size_t index, scm_t_uint8 value) } #undef FUNC_NAME +/* This procedure is used by `scm_c_generalized_vector_set_x ()'. */ +void +scm_i_bytevector_generalized_set_x (SCM bv, size_t index, SCM value) +#define FUNC_NAME "scm_i_bytevector_generalized_set_x" +{ + scm_c_bytevector_set_x (bv, index, scm_to_uint8 (value)); +} +#undef FUNC_NAME + SCM_SMOB_PRINT (scm_tc16_bytevector, print_bytevector, bv, port, pstate) { |