ensure vector of ports in alts

Author: puredanger

src/main/clojure/clojure/core/async.clj

@@ -274,6 +274,7 @@ to catch and handle."
   [fret ports opts]
   (assert (pos? (count ports)) "alts must have at least one channel operation")
   (let [flag (alt-flag)
+        ports (vec ports) ;; ensure vector for indexed nth
         n (count ports)
         ^ints idxs (random-array n)
         priority (:priority opts)