fix comment for putval

This commit is contained in:
Nathan Marz 2015-09-11 11:23:51 -04:00
parent 224369f4eb
commit c633e3a80a

View file

@ -349,19 +349,19 @@
(compiled-select-one late structure)
)))
(defparamscollector
^{:doc
"Adds an external value to the collected vals. Useful when additional arguments
are required to the transform function that would otherwise require partial
application or a wrapper function.
;;TODO: add this comment:
; "Adds an external value to the collected vals. Useful when additional arguments
; are required to the transform function that would otherwise require partial
; application or a wrapper function.
; e.g., incrementing val at path [:a :b] by 3:
; (transform [:a :b (putval 3)] + some-map)"
(defparamscollector putval [val]
e.g., incrementing val at path [:a :b] by 3:
(transform [:a :b (putval 3)] + some-map)"}
putval
[val]
(collect-val [this structure]
val ))
;;TODO: test nothing matches case
(defn cond-path
"Takes in alternating cond-path selector cond-path selector...
Tests the structure if selecting with cond-path returns anything.