diff options
| -rw-r--r-- | src/boot.clj | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/boot.clj b/src/boot.clj index 4738c9d5..66ae81e0 100644 --- a/src/boot.clj +++ b/src/boot.clj @@ -1910,12 +1910,12 @@ not-every? (comp not every?)) defaults (:or b)] (loop [ret (-> bvec (conj gmap) (conj (list `or v {}))) bes (reduce - (fn [bes entry] - (reduce #(assoc %1 %2 ((val entry) %2)) - (dissoc bes (key entry)) - ((key entry) bes))) - (dissoc b :as :or) - {:keys #(keyword (str %)), :strs str, :syms #(list `quote %)})] + (fn [bes entry] + (reduce #(assoc %1 %2 ((val entry) %2)) + (dissoc bes (key entry)) + ((key entry) bes))) + (dissoc b :as :or) + {:keys #(keyword (str %)), :strs str, :syms #(list `quote %)})] (if bes (let [bb (key (first bes)) bk (val (first bes)) |