summaryrefslogtreecommitdiff
path: root/libguile/srfi-4.i.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2005-12-06 21:42:19 +0000
committerMarius Vollmer <mvo@zagadka.de>2005-12-06 21:42:19 +0000
commitab7acbb74eb5be0d6671fe870dbde5c91d515d3b (patch)
tree610e2cc621f7cc07a1f20ae1bf1173140f9b244f /libguile/srfi-4.i.c
parent9d9ce2b576f6bfcf66efd69793435446ebc7c0ba (diff)
downloadguile-ab7acbb74eb5be0d6671fe870dbde5c91d515d3b.tar.gz
(take_uvec): Make BASE pointer non-const.
(scm_take_u8vector, etc): Likewise. Thanks to Ludovic Courtès!
Diffstat (limited to 'libguile/srfi-4.i.c')
-rw-r--r--libguile/srfi-4.i.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/srfi-4.i.c b/libguile/srfi-4.i.c
index 101eb386c..58a52c1d8 100644
--- a/libguile/srfi-4.i.c
+++ b/libguile/srfi-4.i.c
@@ -135,7 +135,7 @@ SCM_DEFINE (F(scm_any_to_,TAG,vector), "any->"S(TAG)"vector", 1, 0, 0,
#ifdef CTYPE
SCM
-F(scm_take_,TAG,vector) (const CTYPE *data, size_t n)
+F(scm_take_,TAG,vector) (CTYPE *data, size_t n)
{
scm_gc_register_collectable_memory ((void *)data, n*uvec_sizes[TYPE],
uvec_names[TYPE]);