Fix a regression!

This commit is contained in:
Simon Brooke 2019-06-24 12:25:16 +01:00
parent a1e10d9cea
commit d430937c56

View file

@ -95,7 +95,10 @@
(vector? x) (vector? x)
(if (if
(every? vector? x) (every? vector? x)
(inc (apply max (map dense-dimensions x))) (inc (apply min (map dense-dimensions x)))
;; `min` is right here, not `max`, because otherwise
;; we will get malformed arrays. Be liberal with what you
;; consume, conservative with what you return!
1) 1)
0)) 0))