summaryrefslogtreecommitdiff
path: root/libguile/bytevectors.h
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/bytevectors.h')
-rw-r--r--libguile/bytevectors.h5
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);