Merge commit 'fdd319e9bd4121d844662d3d8ccc69b462b60840'

diff --cc libguile/bytevectors.c
Simple merge

diff --cc libguile/error.c
Simple merge

diff --cc libguile/load.c
Simple merge

diff --cc libguile/validate.h
Simple merge

diff --cc test-suite/tests/bytevectors.test
index c4ae1bb,8abda4a..91367db
--- 1/test-suite/tests/bytevectors.test
--- 2/test-suite/tests/bytevectors.test
+++ b/test-suite/tests/bytevectors.test
@@@ -682,16 -687,17 +682,25 @@@
  
    (pass-if "bitvector > 8"
      (let ((bv (uniform-array->bytevector (make-bitvector 9 #t))))
 -      (= (bytevector-length bv) 2))))
 +      (= (bytevector-length bv) 4)))
 +
 +  (pass-if "bitvector == 32"
 +    (let ((bv (uniform-array->bytevector (make-bitvector 32 #t))))
 +      (= (bytevector-length bv) 4)))
 +
 +  (pass-if "bitvector > 32"
 +    (let ((bv (uniform-array->bytevector (make-bitvector 33 #t))))
 +      (= (bytevector-length bv) 8))))
  
+ \f
+ (with-test-prefix "srfi-4 homogeneous numeric vectors as bytevectors"
+ 
+   ;; This failed prior to Guile 2.0.12.
+   ;; See <http://bugs.gnu.org/18866>.
+   (pass-if-equal "bytevector-copy on srfi-4 arrays"
+       (make-bytevector 8 #xFF)
+     (bytevector-copy (make-u32vector 2 #xFFFFFFFF))))
+ 
  ;;; Local Variables:
  ;;; eval: (put 'with-test-prefix/c&e 'scheme-indent-function 1)
  ;;; End: