Fix segfault for `(uniform-array->bytevector (bitvector))'.
authorLudovic Courtès <ludo@gnu.org>
Thu, 15 Oct 2009 21:24:19 +0000 (23:24 +0200)
committerLudovic Courtès <ludo@gnu.org>
Thu, 15 Oct 2009 21:24:19 +0000 (23:24 +0200)
commit29553c54b597880d329013c6b4b435e2949a9872
treeed986b9e5e7f229f14a0b4a64e9939e8846660be
parent0f3eacf74c634a3c40aa2f4abefe4d0e7d69f1bf
Fix segfault for `(uniform-array->bytevector (bitvector))'.

* libguile/bytevectors.c (scm_uniform_array_to_bytevector): Fix BYTE_LEN
  computation for bitvectors.

* test-suite/tests/bytevectors.test ("uniform-array->bytevector"): New
  test prefix.
libguile/bytevectors.c
test-suite/tests/bytevectors.test