yogsototh/kibit
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

suggest while for bindingless loop-recur

Browse source
This commit is contained in:
Tassilo Horn 2012-05-30 15:40:58 +02:00
parent 75ff91ad10
commit 7f9c5281d8
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/kibit/rules/control_structures.clj
View file

@ -13,7 +13,12 @@
[(do ?x) ?x]
[(when-not true ?x) _]
[(when false ?x) _]
[(if-let ?binding ?expr nil) (when-let ?binding ?expr)])
[(if-let ?binding ?expr nil) (when-let ?binding ?expr)]
;; suggest `while` for bindingless loop-recur
[(loop [] (when ?test . ?exprs (recur)))
(while ?test . ?exprs)]
)
(comment
(when (not (pred? x y)) (f x y))