* src/main/clojure/clojure/core/logic/prelude.clj: fix for 1.3.0-beta1

clojure · Jun 27, 2011 · e54c4f5 · e54c4f5
1 parent cde8578
commit e54c4f5
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/src/main/clojure/clojure/core/logic/prelude.clj b/src/main/clojure/clojure/core/logic/prelude.clj
@@ -172,11 +172,11 @@
   (let [arity (count args)
         r (range 1 (clojure.core/inc arity))
         as (map a-sym r)
-        indexed (filter (fn [[a i]]
-                          (-> a meta :index))
-                        (map vector
-                             args
-                             (range 1 (clojure.core/inc arity))))
+        indexed (vec (filter (fn [[a i]]
+                               (-> a meta :index))
+                             (map vector
+                                  args
+                                  (range 1 (clojure.core/inc arity)))))
         check-lvar (fn [[o i]]
                      (let [a (a-sym i)]
                        `((not (~'lvar? (~'walk ~'a ~a)))