diff options
author | Marius Vollmer <mvo@zagadka.de> | 2005-12-06 21:42:19 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2005-12-06 21:42:19 +0000 |
commit | ab7acbb74eb5be0d6671fe870dbde5c91d515d3b (patch) | |
tree | 610e2cc621f7cc07a1f20ae1bf1173140f9b244f /libguile/srfi-4.i.c | |
parent | 9d9ce2b576f6bfcf66efd69793435446ebc7c0ba (diff) | |
download | guile-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.c | 2 |
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]); |