diff options
Diffstat (limited to 'libguile/bytevectors.h')
-rw-r--r-- | libguile/bytevectors.h | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/libguile/bytevectors.h b/libguile/bytevectors.h index c3d6c69e9..33e46e279 100644 --- a/libguile/bytevectors.h +++ b/libguile/bytevectors.h @@ -22,6 +22,7 @@ #include "libguile/__scm.h" +#include <libguile/error.h> #include "libguile/uniform.h" @@ -146,6 +147,10 @@ SCM_API SCM scm_utf32_to_string (SCM, SCM); /* Hint that is passed to `scm_gc_malloc ()' and friends. */ #define SCM_GC_BYTEVECTOR "bytevector" +#define SCM_VALIDATE_BYTEVECTOR(_pos, _obj) \ + SCM_ASSERT_TYPE (SCM_BYTEVECTOR_P (_obj), (_obj), (_pos), \ + FUNC_NAME, "bytevector") + SCM_INTERNAL SCM scm_i_make_typed_bytevector (size_t, scm_t_array_element_type); SCM_INTERNAL SCM scm_c_take_typed_bytevector (signed char *, size_t, scm_t_array_element_type, SCM); |