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