diff options
| author | Rich Hickey <richhickey@gmail.com> | 2008-03-29 12:41:15 +0000 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2008-03-29 12:41:15 +0000 |
| commit | 9242924b4fa7d53ef319a020d54daf6a9404a6b6 (patch) | |
| tree | e8b8795390bd3922bf774bffd0db53871970254d | |
| parent | 525baa5439997789cae4a27e21cff53817a0f622 (diff) | |
fixed when-first when empty non-seq coll
| -rw-r--r-- | src/boot.clj | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/boot.clj b/src/boot.clj index 7d6dfd29..e67cd0dd 100644 --- a/src/boot.clj +++ b/src/boot.clj @@ -1932,7 +1932,7 @@ make-proxy [classes method-map] (defmacro when-first "Same as (when (seq xs) (let [x (first xs)] body))" [x xs & body] - `(when ~xs + `(when (seq ~xs) (let [~x (first ~xs)] ~@body))) |