use clj-tuple for returning multiple values from doreduce

README.md

@@ -6,6 +6,8 @@ Full documentation can be found [here](http://ideolalia.com/vertigo).
 
 ### usage
 
+[![Build Status](https://travis-ci.org/ztellman/vertigo.png?branch=master)](https://travis-ci.org/ztellman/vertigo)
+
 ```clj
 [vertigo "0.1.1"]
 ```

project.clj

@@ -4,6 +4,7 @@
             :url "http://opensource.org/licenses/MIT"}
   :dependencies [[potemkin "0.3.4-SNAPSHOT"]
                  [primitive-math "0.1.3"]
+                 [clj-tuple "0.1.2"]
                  [byte-streams "0.1.5"]
                  [riddley "0.1.5-SNAPSHOT"]]
   :profiles {:dev {:dependencies [[criterium "0.4.1"]

src/vertigo/core.clj

@@ -4,6 +4,7 @@
   (:use
     potemkin)
   (:require
+    [clj-tuple :refer (tuple)]
     [riddley.walk :as rd]
     [byte-streams :as bytes]
     [vertigo.structs :as s]
@@ -589,7 +590,7 @@
                           (and (seq? x) (= 'break (first x)))
                           (if (= 2 (count x))
                             (second x)
-                            `(vector ~@(rest x)))
+                            `(tuple ~@(rest x)))
 
                           (= 1 (count values))
                           `(recur (p/+ idx## ~step) ~x)
@@ -604,7 +605,7 @@
                       (rd/macroexpand-all `(do ~@body))))
                  ~(if (= 1 (count values))
                     (:sym (first values))
-                    `(vector ~@(map :sym values))))))))
+                    `(tuple ~@(map :sym values))))))))
 
       ;; multi-dimensional iteration
       (let [{:keys [seqs limits values iterators]} arguments
@@ -619,7 +620,7 @@
                            (and (seq? x) (= 'break (first x)))
                            (if (= 2 (count x))
                              (second x)
-                             `(vector ~@(rest x)))
+                             `(tuple ~@(rest x)))
 
                            (= 1 (count values))
                            `(recur ~@(map :sym iterators) ~x)
@@ -685,7 +686,7 @@
                     ~body
                     ~(if (= 1 (count values))
                        (:sym (first values))
-                       `(vector ~@(map :sym values)))))))))))))
+                       `(tuple ~@(map :sym values)))))))))))))
 
 (defmacro doreduce
   "A combination of `doseq` and `reduce`, this is a primitive for efficient batch operations over sequences.