luciano/specter
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

formatting

Browse source
This commit is contained in:
Nathan Marz 2015-05-11 13:31:12 -04:00
parent 060e61218a
commit e0bde53fef
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/clj/com/rpl/specter/impl.clj
View file

@ -131,10 +131,10 @@
(if (= t :svalspath) (if (= t :svalspath)
(fn [curr next] (fn [curr next]
(fn [vals structure next-fn] (fn [vals structure next-fn]
(curr vals structure (curr vals structure
(fn [vals-next structure-next] (fn [vals-next structure-next]
(next vals-next structure-next next-fn) (next vals-next structure-next next-fn)
)))) ))))
(fn [curr next] (fn [curr next]
(fn [structure next-fn] (fn [structure next-fn]
(curr structure (fn [structure] (next structure next-fn))))) (curr structure (fn [structure] (next structure next-fn)))))