[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 06/19: Merge commit 'fdd319e9bd4121d844662d3d8ccc69b462b
From: |
Andy Wingo |
Subject: |
[Guile-commits] 06/19: Merge commit 'fdd319e9bd4121d844662d3d8ccc69b462b60840' |
Date: |
Thu, 22 Jan 2015 13:54:38 +0000 |
wingo pushed a commit to branch master
in repository guile.
commit 086bbcc874f230c709b7c0a46439c2fd3f7cd37c
Merge: d5dffec fdd319e
Author: Andy Wingo <address@hidden>
Date: Thu Jan 22 13:04:34 2015 +0100
Merge commit 'fdd319e9bd4121d844662d3d8ccc69b462b60840'
THANKS | 1 +
libguile/bytevectors.c | 2 +-
libguile/error.c | 9 ++++++---
libguile/load.c | 29 +++++++++++++----------------
libguile/validate.h | 7 +++++++
meta/guile.m4 | 2 +-
test-suite/tests/bytevectors.test | 15 ++++++++++++---
7 files changed, 41 insertions(+), 24 deletions(-)
diff --cc test-suite/tests/bytevectors.test
index c4ae1bb,8abda4a..91367db
--- a/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))))
+
+ (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:
- [Guile-commits] branch master updated (015c3c0 -> 4247d8e), Andy Wingo, 2015/01/22
- [Guile-commits] 01/19: Merge commit 'b1451ad859183ae48c624d19ec144306bd2d3e3a', Andy Wingo, 2015/01/22
- [Guile-commits] 02/19: Merge commit '5af307de43e4b65eec7f235b48a8908f2a00f134', Andy Wingo, 2015/01/22
- [Guile-commits] 05/19: Merge commit 'a7bbba05838cabe2294f498e7008e1c51db6d664', Andy Wingo, 2015/01/22
- [Guile-commits] 03/19: Add allocate-struct, struct-ref, struct-set! instructions, Andy Wingo, 2015/01/22
- [Guile-commits] 06/19: Merge commit 'fdd319e9bd4121d844662d3d8ccc69b462b60840',
Andy Wingo <=
- [Guile-commits] 07/19: Merge commit '81d2c84674f03f9028f26474ab19d3d3f353881a', Andy Wingo, 2015/01/22
- [Guile-commits] 04/19: Keywords have a tc7, Andy Wingo, 2015/01/22
- [Guile-commits] 09/19: Merge commit '5fac1a7ada362d78f13143acbc0ceca7f2f101de', Andy Wingo, 2015/01/22
- [Guile-commits] 08/19: Merge commit '8cf2a7ba7432d68b9a055d29f18117be70375af9', Andy Wingo, 2015/01/22
- [Guile-commits] 10/19: Merge commit '7c433cbbce83bc9f2f9967afba00bbb68e312657', Andy Wingo, 2015/01/22
- [Guile-commits] 11/19: Merge commit '47ca15c7dffd14a82e75c1a0aeeaf2e77f3fa5b4', Andy Wingo, 2015/01/22
- [Guile-commits] 13/19: Merge commit 'cdcba5b2f6270de808e51b3b933374170611b91d', Andy Wingo, 2015/01/22
- [Guile-commits] 14/19: Merge commit '37b1453032488de582175270d1b3a1653ea81457', Andy Wingo, 2015/01/22
- [Guile-commits] 15/19: Merge commit '5943a62042432b86d757200ef595d7aebb5c9bac', Andy Wingo, 2015/01/22
- [Guile-commits] 18/19: Merge commit 'ed72201a795ac1c8d6c0288b6bb710f2bd0ebd9c', Andy Wingo, 2015/01/22