diff options
| author | Rich Hickey <richhickey@gmail.com> | 2008-01-06 20:44:03 +0000 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2008-01-06 20:44:03 +0000 |
| commit | 4586ede5f3b1cb09e8c15d9ca2c89e60bfde313b (patch) | |
| tree | 64ee0501fcc4340a5a93fc4298d9ec0af8b0e872 | |
| parent | ebe40313d671a1cbc9930e58b550a68d1da3c075 (diff) | |
made and return the first non-true value
| -rw-r--r-- | src/boot.clj | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/boot.clj b/src/boot.clj index 7bd36316..9c0cc335 100644 --- a/src/boot.clj +++ b/src/boot.clj @@ -144,7 +144,9 @@ (defmacro and ([] true) ([x] x) - ([x & rest] `(if ~x (and ~@rest)))) + ([x & rest] + `(let [and# ~x] + (if and# (and ~@rest) and#)))) (defmacro or ([] nil) |