Incorrect leftmost behavior

[weavejester]

The rewrite-clj.zip/leftmost function doesn't appear to work correctly. This may be a bug in fastzip, or in the way rewrite-clj constructs the zipper.

user=> (-> (z/of-string "(merge foo bar)") z/down z/leftmost z/node)
[:token merge]
user=> (-> (z/of-string "(merge foo bar)") z/down z/right z/leftmost z/node)
[:token foo]

These two expressions should return the same value. I've tested this with rewrite-clj 0.3.10, and I've tried updating fastzip to 0.5.1 without success.

[xsc]

Looks like a bug in fast-zip (tried it with 0.5.1):

(require '[fast-zip.core :as z])
(let [loc (z/seq-zip '(a b c d e f))]
  (->> (z/down loc)
       (iterate z/right)
       (take-while identity)
       (map (comp z/node z/leftmost))))
;; => (a a b c d e)

[xsc]

Released.

[rewrite-clj "0.3.11"]

[weavejester]

Thanks for the quick fix!