Fix <TAG>vector-length when applied to other uniform vector types
authorMark H Weaver <mhw@netris.org>
Thu, 1 Mar 2012 21:07:28 +0000 (16:07 -0500)
committerMark H Weaver <mhw@netris.org>
Thu, 1 Mar 2012 21:16:18 +0000 (16:16 -0500)
commitef405f8ba73fc57706d7155a2e008352416debcf
tree81dbc0739ac01c0a05e0fc6912c916743ae29bb4
parentd316047326fde9d63ca52c0051fbf09124ef297e
Fix <TAG>vector-length when applied to other uniform vector types

* module/srfi/srfi-4.scm, module/srfi/srfi-4/gnu.scm
  (define-bytevector-type): Fix definition of <TAG>vector-length when
  applied to uniform vectors of different element sizes.  Thanks to
  Tobias Brandt <tob.brandt@googlemail.com> for reporting this bug.

* test-suite/tests/srfi-4.test: Add tests.
module/srfi/srfi-4.scm
module/srfi/srfi-4/gnu.scm
test-suite/tests/srfi-4.test