Build up empty arrays of higher dimensions for list/vector*->array

Issue #962.

Author: ashinn

lib/srfi/231/test.sld

@@ -1821,10 +1821,26 @@
             (array-every equal?
                          (list*->array 0 '())
                          (make-array (make-interval '#()) (lambda () '()))))
+        (test-assert
+            (array-every equal?
+                         (list*->array 1 '())
+                         (make-array (make-interval '#(0)) (lambda () '()))))
+        (test-assert
+            (array-every equal?
+                         (list*->array 2 '())
+                         (make-array (make-interval '#(0 0)) (lambda () '()))))
         (test-assert
             (array-every equal?
                          (vector*->array 0 '())
                          (make-array (make-interval '#()) (lambda () '()))))
+        (test-assert
+            (array-every equal?
+                         (vector*->array 1 '())
+                         (make-array (make-interval '#(0)) (lambda () '()))))
+        (test-assert
+            (array-every equal?
+                         (vector*->array 2 '())
+                         (make-array (make-interval '#(0 0)) (lambda () '()))))
         (test-error (array-any 1 2))
         (test-error (array-any list 1))
         (test-error (array-any list

lib/srfi/231/transforms.scm

@@ -524,15 +524,17 @@
       (error "can't reshape" array new-domain)))))
 
 (define (flatten ls d)
-  (if (and (positive? d) (pair? (car ls)))
+  (if (and (positive? d) (pair? ls) (pair? (car ls)))
       (append-map (lambda (x) (flatten x (- d 1))) ls)
       ls))
 
 (define (list*->array dimension nested-ls . o)
   (let lp ((ls nested-ls) (lens '()) (d dimension))
     (cond
      ((positive? d)
-      (lp (car ls) (cons (length ls) lens) (- d 1)))
+      (if (null? ls)
+          (lp '() (cons 0 lens) (- d 1))
+          (lp (car ls) (cons (length ls) lens) (- d 1))))
      (else
       (apply list->array
              (make-interval (list->vector (reverse lens)))
@@ -572,16 +574,20 @@
                                 (interval-lower-bound domain 0)))))))
 
 (define (flatten-vector->list vec d)
-  (if (and (positive? d) (vector? (vector-ref vec 0)))
-      (append-map (lambda (x) (flatten-vector->list x (- d 1)))
-                  (vector->list vec))
-      (vector->list vec)))
+  (cond
+   ((not (vector? vec)) '())
+   ((and (positive? d) (vector? (vector-ref vec 0)))
+    (append-map (lambda (x) (flatten-vector->list x (- d 1)))
+                (vector->list vec)))
+   (else (vector->list vec))))
 
 (define (vector*->array dimension nested-vec . o)
   (let lp ((vec nested-vec) (lens '()) (d dimension))
     (cond
      ((positive? d)
-      (lp (vector-ref vec 0) (cons (vector-length vec) lens) (- d 1)))
+      (if (vector? vec)
+          (lp (vector-ref vec 0) (cons (vector-length vec) lens) (- d 1))
+          (lp vec (cons 0 lens) (- d 1))))
      (else
       (apply list->array
              (make-interval (reverse-list->vector lens))