diff options
Diffstat (limited to 'src/boot.clj')
| -rw-r--r-- | src/boot.clj | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/boot.clj b/src/boot.clj index 10e0ce84..63103355 100644 --- a/src/boot.clj +++ b/src/boot.clj @@ -1909,7 +1909,7 @@ not-every? (comp not every?)) (fn [bvec b v] (let [gmap (or (:as b) (gensym "map__")) defaults (:or b)] - (loop [ret (-> bvec (conj gmap) (conj (list `or v {}))) + (loop [ret (-> bvec (conj gmap) (conj v)) bes (reduce (fn [bes entry] (reduce #(assoc %1 %2 ((val entry) %2)) @@ -1923,7 +1923,7 @@ not-every? (comp not every?)) has-default (contains? defaults bb)] (recur (pb ret bb (if has-default (list `get gmap bk (defaults bb)) - (list gmap bk))) + (list `get gmap bk))) (rest bes))) ret))))] (cond |