Permalink
Browse files

Merge pull request #70 from Raynes/master

Added a rule for (apply str ..)
  • Loading branch information...
2 parents 1834992 + 8424bb2 commit ea1e0325d4b2fcf1808400cf28197bafda706a54 @jonase committed Jan 26, 2013
Showing with 2 additions and 0 deletions.
  1. +1 −0 src/kibit/rules/misc.clj
  2. +1 −0 test/kibit/test/misc.clj
@@ -16,6 +16,7 @@
;; clojure.string
[(apply str (interpose ?x ?y)) (clojure.string/join ?x ?y)]
[(apply str (reverse ?x)) (clojure.string/reverse ?x)]
+ [(apply str ?x) (clojure.string/join ?x)]
;; mapcat
[(apply concat (apply map ?x ?y)) (mapcat ?x ?y)]
@@ -6,6 +6,7 @@
(are [expected-alt-form test-form]
(= expected-alt-form (:alt (kibit/check-expr test-form)))
'(clojure.string/join x y) '(apply str (interpose x y))
+ '(clojure.string/join x) '(apply str x)
'(clojure.string/reverse x) '(apply str (reverse x))
'(mapcat x y) '(apply concat (apply map x y))
'(mapcat x y) '(apply concat (map x y))

0 comments on commit ea1e032

Please sign in to comment.