diff options
author | Daniel Llorens <lloda@sarc.name> | 2021-03-02 15:12:20 +0100 |
---|---|---|
committer | Daniel Llorens <lloda@sarc.name> | 2021-03-02 15:12:20 +0100 |
commit | a4a5fbced344b12335d538102c7fe37f5848a519 (patch) | |
tree | e16a93c2f4d89c3643fcde8ea72617cc78fe11f2 | |
parent | d69062daf1ac51f583155016c4aed5f72d59158d (diff) | |
download | guile-a4a5fbced344b12335d538102c7fe37f5848a519.tar.gz |
Fix another typo in routine reading arrays
* module/ice-9/read.scm: As stated.
* test-suite/tests/arrays.test: Test a fixed case.
-rw-r--r-- | module/ice-9/read.scm | 2 | ||||
-rw-r--r-- | test-suite/tests/arrays.test | 6 |
2 files changed, 6 insertions, 2 deletions
diff --git a/module/ice-9/read.scm b/module/ice-9/read.scm index 29175d54c..a1e4e7a8f 100644 --- a/module/ice-9/read.scm +++ b/module/ice-9/read.scm @@ -524,7 +524,7 @@ (list lbnd (+ lbnd (1- len)))) lbnd)))) (define (read-shape ch alt) - (if (memv ch '(#\@ @\:)) + (if (memv ch '(#\@ #\:)) (let*-values (((ch head) (read-dimension ch)) ((ch tail) (read-shape ch '()))) (values ch (cons head tail))) diff --git a/test-suite/tests/arrays.test b/test-suite/tests/arrays.test index e913e30a2..c8eed39d3 100644 --- a/test-suite/tests/arrays.test +++ b/test-suite/tests/arrays.test @@ -994,7 +994,7 @@ ;;; 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" "#1(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." "#3: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." "#3:0:1:0()" |