From 50587dd35e543083c00d731284b5a65ad456ec82 Mon Sep 17 00:00:00 2001
From: Christophe Grand <christophe@cgrand.net>
Date: Wed, 16 Sep 2015 13:25:57 +0200
Subject: [PATCH] rename x/just to x/first

---
 src/net/cgrand/xforms.clj | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/net/cgrand/xforms.clj b/src/net/cgrand/xforms.clj
index c3687fb..c6c91e0 100644
--- a/src/net/cgrand/xforms.clj
+++ b/src/net/cgrand/xforms.clj
@@ -1,7 +1,7 @@
 (ns net.cgrand.xforms
   "Extra transducers for Clojure"
   {:author "Christophe Grand"}
-  (:refer-clojure :exclude [reduce into count for partition str juxt])
+  (:refer-clojure :exclude [reduce into count for partition str juxt first])
   (:require [clojure.core :as clj]))
 
 (defmacro for
@@ -36,7 +36,7 @@
 (defmacro kvrf [name? & fn-bodies]
   (let [name (if (symbol? name?) name? (gensym '_))
         fn-bodies (if (symbol? name?) fn-bodies (cons name? fn-bodies))
-        fn-bodies (if (vector? (first fn-bodies)) (list fn-bodies) fn-bodies)]
+        fn-bodies (if (vector? (clj/first fn-bodies)) (list fn-bodies) fn-bodies)]
     `(reify
        clojure.lang.Fn
        KvRfable
@@ -290,7 +290,7 @@
       ([acc] (zipmap keys (f acc)))
       ([acc x] (f acc x)))))
 
-(defn just
+(defn first
   "Reducing function that returns the first value or nil if none."
   ([] nil)
   ([x] x)
@@ -302,10 +302,10 @@
    Returns a transducer when coll is omitted."
   ([xforms-map]
     (let [[f args] (if (vector? xforms-map)
-                     [juxt (map #(% just))]
-                     [juxt-map (comp (by-key (map #(% just))) cat)])]
+                     [juxt (map #(% first))]
+                     [juxt-map (comp (by-key (map #(% first))) cat)])]
       (fn [rf]
         ((reduce (apply f (sequence args xforms-map))) rf))))
   ([xforms-map coll]
-    (transduce (transjuxt xforms-map) just coll)))
+    (transduce (transjuxt xforms-map) first coll)))