diff --git a/src/kibit/rules/misc.clj b/src/kibit/rules/misc.clj index 7ab6626..b2eab3c 100644 --- a/src/kibit/rules/misc.clj +++ b/src/kibit/rules/misc.clj @@ -103,7 +103,8 @@ ;; Other - [(not (some ?pred ?coll)) (not-any? ?pred ?coll)]) + [(not (some ?pred ?coll)) (not-any? ?pred ?coll)] + [(with-meta ?x (?f (meta ?x) . ?arg)) (vary-meta ?x ?f . ?arg)]) (comment diff --git a/test/kibit/test/misc.clj b/test/kibit/test/misc.clj index 3dbbf51..ca8037b 100644 --- a/test/kibit/test/misc.clj +++ b/test/kibit/test/misc.clj @@ -41,4 +41,6 @@ '(form arg) '(->> arg form) '(:form arg) '(->> arg :form) '(first-of-form rest-of-form arg) '(->> arg (first-of-form rest-of-form)) - '(not-any? pred coll) '(not (some pred coll)))) + '(not-any? pred coll) '(not (some pred coll)) + '(vary-meta arg f) '(with-meta arg (f (meta arg))) + '(vary-meta arg f :a :b :c) '(with-meta arg (f (meta arg) :a :b :c))))