Merge pull request #129
This commit is contained in:
commit
03997ac15a
1 changed files with 6 additions and 1 deletions
|
@ -22,4 +22,9 @@
|
|||
'(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))
|
||||
'(assoc-in coll [k1 k2] v) '(update-in coll [k1 k2] assoc v)
|
||||
'(repeatedly 10 (constantly :foo)) '(take 10 (repeatedly (constantly :foo)))))
|
||||
'(repeatedly 10 (constantly :foo)) '(take 10 (repeatedly (constantly :foo)))
|
||||
|
||||
;; some wrong simplifications happened in the past:
|
||||
nil '(assoc coll k (assoc (coll k0) k1 a))
|
||||
nil '(assoc coll k (assoc (get coll k0) k1 a))
|
||||
nil '(assoc coll k (assoc (k0 coll) k1 a))))
|
||||
|
|
Loading…
Reference in a new issue