mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-21 11:10:21 +02:00
Fix compilation of literal bitvectors.
* libguile/arrays.c (scm_from_contiguous_typed_array): Fix BYTE_LEN sanity check for bitvectors. * test-suite/tests/unif.test ("syntax")["bitvector is self-evaluating"]: New test. * module/ice-9/deprecated.scm (#\y): Fix deprecation comment: `#*' is not a read syntax.
This commit is contained in:
parent
29553c54b5
commit
cd48c32cf4
3 changed files with 8 additions and 4 deletions
|
@ -17,7 +17,8 @@
|
|||
;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
|
||||
|
||||
(define-module (test-suite test-unif)
|
||||
#:use-module (test-suite lib))
|
||||
#:use-module ((system base compile) #:select (compile))
|
||||
#:use-module (test-suite lib))
|
||||
|
||||
;;;
|
||||
;;; array?
|
||||
|
@ -546,8 +547,10 @@
|
|||
(eq? 'b (array-ref a -2)))))
|
||||
|
||||
(pass-if-exception "negative length" exception:length-non-negative
|
||||
(with-input-from-string "'#1:-3(#t #t)" read)))
|
||||
(with-input-from-string "'#1:-3(#t #t)" read))
|
||||
|
||||
(pass-if "bitvector is self-evaluating"
|
||||
(equal? (compile (bitvector)) (bitvector))))
|
||||
|
||||
;;;
|
||||
;;; equal? with vector and one-dimensional array
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue