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

if-let -> when-let

Browse source
This commit is contained in:
Jonas Enlund 2012-03-10 06:59:47 +02:00
parent 63f65bd029
commit 9c2318dde5
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/jonase/kibit/core.clj
View file

@ -77,9 +77,8 @@
"Given a full expression/form-of-forms/form, return a map containing the
alternative suggestion info, or `nil` (see: `check-form`)"
[expr]
(if-let [new-expr (walk/walk #(or (-> % check-form :alt) %) check-form expr)]
(assoc new-expr :expr expr)
nil))
(when-let [new-expr (walk/walk #(or (-> % check-form :alt) %) check-form expr)]
(assoc new-expr :expr expr)))
;; Reading source files
;; --------------------