Permalink
Browse files

Added not-any? rule

  • Loading branch information...
jonase committed Apr 2, 2012
1 parent 65095fc commit dc4f723baaf5b7b75eddf02a100b8a8465db2f40
Showing with 4 additions and 1 deletion.
  1. +4 −1 src/kibit/rules/misc.clj
View
@@ -26,7 +26,7 @@
(logic/pred fun #(or (keyword? %)
(and (symbol? %)
(not= \. (first (str %)))
- (not (some #{\/} (str %))))))))
+ (not-any? #{\/} (str %)))))))
#(logic/== % fun)])
;; do
@@ -70,7 +70,10 @@
(logic/project [form]
(logic/== sbst (concat form (list arg)))))]))])
+
+
;; Other
+ [(not (some ?pred ?coll)) (not-any? ?pred ?coll)]
[(not (= . ?args)) (not= . ?args)])

0 comments on commit dc4f723

Please sign in to comment.