fix: array rank

g000001 · Mar 9, 2012 · 759d3fe · 759d3fe
1 parent dc2060d
commit 759d3fe
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/srfi-58.lisp b/srfi-58.lisp
@@ -124,8 +124,9 @@
     (iter dims) ))
 
 (defun list->uniform-array (rank dims type list)
-  (let ((rank (or rank (car dims))))
-    (srfi-63:list->array rank (funcall type) list)))
+  (let ((rank (or rank (let ((dim (length dims)))
+                         (if (zerop dim) 1 dim) ) )))
+    (srfi-63:list->array rank (funcall type) list) ))
 
 (defun read..sharp (c port read)
   (let ((rank read))