diff options
| author | Rich Hickey <richhickey@gmail.com> | 2008-10-08 11:40:07 +0000 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2008-10-08 11:40:07 +0000 |
| commit | 4903c466fc7485d6dd1fe27c5244efe4dda8ba8e (patch) | |
| tree | 0c460b7c3fa0bfe4f7808437ecb40df26e0207bd | |
| parent | 70f9afeac049e469d701bce1d6214f655f4323bc (diff) | |
fixed map destructuring with :as only
| -rw-r--r-- | src/clj/clojure/boot.clj | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/clj/clojure/boot.clj b/src/clj/clojure/boot.clj index 40c90a03..65f529a6 100644 --- a/src/clj/clojure/boot.clj +++ b/src/clj/clojure/boot.clj @@ -2129,7 +2129,7 @@ n 0 bs b seen-rest? false] - (if bs + (if (seq bs) (let [firstb (first bs)] (cond (= firstb '&) (recur (pb ret (second bs) (list `nthrest gvec n)) @@ -2156,7 +2156,7 @@ ((key entry) bes))) (dissoc b :as :or) {:keys #(keyword (str %)), :strs str, :syms #(list `quote %)})] - (if bes + (if (seq bes) (let [bb (key (first bes)) bk (val (first bes)) has-default (contains? defaults bb)] |