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

fix typo/formatting

Browse source
This commit is contained in:
Nathan Marz 2015-09-18 15:01:01 -04:00
parent 3f22361fad
commit f12b6bc046
2 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/com/rpl/specter.cljc
View file

@ -117,7 +117,7 @@
)) ))
(defn replace-in (defn replace-in
"Similar to transform, except returns a pair of [transformd-structure sequence-of-user-ret]. "Similar to transform, except returns a pair of [transformed-structure sequence-of-user-ret].
The transform-fn in this case is expected to return [ret user-ret]. ret is The transform-fn in this case is expected to return [ret user-ret]. ret is
what's used to transform the data structure, while user-ret will be added to the user-ret sequence what's used to transform the data structure, while user-ret will be added to the user-ret sequence
in the final return. replace-in is useful for situations where you need to know the specific values in the final return. replace-in is useful for situations where you need to know the specific values
@ -164,6 +164,7 @@
(i/srange-transform structure start end next-fn) (i/srange-transform structure start end next-fn)
)) ))
(def BEGINNING (srange 0 0)) (def BEGINNING (srange 0 0))
(def END (srange-dynamic count count)) (def END (srange-dynamic count count))
@ -307,7 +308,7 @@
"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)"}
putval putval

6
test/com/rpl/specter/core_test.cljc
View file

@ -526,13 +526,13 @@
#?(:clj #?(:clj
(deftest large-params-test (deftest large-params-test
(let [path (apply s/comp-paths (repeat 25 s/keypath)) (let [path (apply s/comp-paths (repeat 25 s/keypath))
m (reduce m (reduce
(fn [m k] (fn [m k]
{k m}) {k m})
:a :a
(reverse (range 25)))] (reverse (range 25)))]
(is (= :a (s/select-one (apply path (range 25)) m))) (is (= :a (s/select-one (apply path (range 25)) m)))
)) ))
;;TODO: there's a bug in clojurescript that won't allow ;;TODO: there's a bug in clojurescript that won't allow
;; non function implementations of IFn to have more than 20 arguments ;; non function implementations of IFn to have more than 20 arguments
) )