diff options
| author | Rich Hickey <richhickey@gmail.com> | 2008-10-04 18:46:09 +0000 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2008-10-04 18:46:09 +0000 |
| commit | c05faf07720eab3cbe394f8020a81e24bb9044b6 (patch) | |
| tree | 4547f1839b978281b96b147a997a31c265c464e6 /src | |
| parent | ac9339e1f9593af9f730585158fd354b2f9a80f7 (diff) | |
for patch, fixes empty child seq
Diffstat (limited to 'src')
| -rw-r--r-- | src/clj/clojure/boot.clj | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/clj/clojure/boot.clj b/src/clj/clojure/boot.clj index 68cb448d..30c8d68f 100644 --- a/src/clj/clojure/boot.clj +++ b/src/clj/clojure/boot.clj @@ -2274,9 +2274,11 @@ (when-first ~b ~gxs (if ~f ~(if rses - `(let [iterys# ~(emit rses)] - (lazy-cat (iterys# ~ys) - (~giter (rest ~gxs)))) + `(let [iterys# ~(emit rses) + fs# (iterys# ~ys)] + (if fs# + (lazy-cat fs# (~giter (rest ~gxs))) + (recur (rest ~gxs)))) `(lazy-cons ~expr (~giter (rest ~gxs)))) ~(if (= w :when) `(recur (rest ~gxs)) |