在 seq-zip 中可能出现 NullPointerException

Question

例如

Clojure 1.3.0
user=> (require '(link: clojure.zip :as z))
nil
user=> (-> (z/seq-zip (list 1)) z/down z/remove)
NullPointerException clojure.core/with-meta (core.clj:211)

可能 seq-zip 的 make-node 函数应该是

(fn (link: 节点 子节点) (with-meta (or 子节点 ()) (meta 节点)))

Answer 1

评论者：glchapman

zipper 的文档也应该更新，以表明 children 参数可以为 nil。

Answer 2

评论者：chbrown

4 年后，我也遇到了这个问题。

有解决方案吗？也就是说，是否有方法从单分支中删除元素？

Answer 3

评论者：alexmiller

很高兴能看到补丁（尽管它还需要回填一些测试）。

一个解决方案可能如下

(-> (z/seq-zip (list 1)) (z/edit #(drop 1 %)) z/node)

或者，你可以使用另一个 zipper 库，如 hara.zip，它没有 remove，但与 delete-right 一起工作

（->（z/seq-zip（列表1）z/down z/delete-right z/up z/node））

Answer 4

参考：https://clojure.atlassian.net/browse/CLJ-941（由glchapman报告）