mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Fix another typo in routine reading arrays

Browse source 
* module/ice-9/read.scm: As stated.
* test-suite/tests/arrays.test: Test a fixed case.
This commit is contained in:
Daniel Llorens 2021-03-02 15:12:20 +01:00
parent d69062daf1
commit a4a5fbced3
2 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/ice-9/read.scm
View file

@ -524,7 +524,7 @@
(list lbnd (+ lbnd (1- len)))) (list lbnd (+ lbnd (1- len))))
lbnd)))) lbnd))))
(define (read-shape ch alt) (define (read-shape ch alt)
(if (memv ch '(#\@ @\:)) (if (memv ch '(#\@ #\:))
(let*-values (((ch head) (read-dimension ch)) (let*-values (((ch head) (read-dimension ch))
((ch tail) (read-shape ch '()))) ((ch tail) (read-shape ch '())))
(values ch (cons head tail))) (values ch (cons head tail)))

6
test-suite/tests/arrays.test
View file

@ -994,7 +994,7 @@
;;; printing arrays ;;; printing arrays
;;; ;;;
(with-test-prefix/c&e "printing arrays" (with-test-prefix/c&e "printing and reading arrays"
(pass-if-equal "writing 1D arrays that aren't vectors" (pass-if-equal "writing 1D arrays that aren't vectors"
"#1(b c)" "#1(b c)"
(format #f "~a" (make-shared-array #(a b c) (format #f "~a" (make-shared-array #(a b c)
@ -1016,6 +1016,10 @@
(pass-if-equal "empty 3-array with last nonempty dim." (pass-if-equal "empty 3-array with last nonempty dim."
"#3:0:0:1()" "#3:0:0:1()"
(format #f "~a" (make-array 1 0 0 1))) (format #f "~a" (make-array 1 0 0 1)))
(pass-if-equal "empty typed 3-array with last nonempty dim."
"#3f64:0:0:1()"
(format #f "~a" (make-typed-array 'f64 1 0 0 1)))
(pass-if-equal "empty 3-array with middle nonempty dim." (pass-if-equal "empty 3-array with middle nonempty dim."
"#3:0:1:0()" "#3:0:1:0()"