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

(update-in ... assoc ...) should be (assoc-in ...)

Browse source
This commit is contained in:
Steve Losh 2012-07-14 14:47:18 -04:00
parent 176841cb4a
commit c450d1da60
2 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/kibit/rules/collections.clj
View file

@ -8,6 +8,7 @@
[(assoc ?coll ?key (?fn (?key ?coll) . ?args)) (update-in ?coll [?key] ?fn . ?args)]
[(assoc ?coll ?key (?fn (?coll ?key) . ?args)) (update-in ?coll [?key] ?fn . ?args)]
[(assoc ?coll ?key (?fn (get ?coll ?key) . ?args)) (update-in ?coll [?key] ?fn . ?args)]
[(update-in ?coll ?keys assoc ?val) (assoc-in ?coll ?keys ?val)]
;; empty?
[(not (empty? ?x)) (seq ?x)]

3
test/kibit/test/collections.clj
View file

@ -17,4 +17,5 @@
'(update-in coll [k] f) '(assoc coll k (f (get coll k)))
'(update-in coll [k] f a b c) '(assoc coll k (f (k coll) a b c))
'(update-in coll [k] f a b c) '(assoc coll k (f (coll k) a b c))
'(update-in coll [k] f a b c) '(assoc coll k (f (get coll k) a b c))))
'(update-in coll [k] f a b c) '(assoc coll k (f (get coll k) a b c))
'(assoc-in coll [k1 k2] v) '(update-in coll [k1 k2] assoc v)))