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

add note about original-obj

Browse source
This commit is contained in:
Nathan Marz 2016-09-01 17:04:58 -04:00
parent e571df5832
commit e057ee8d22
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/clj/com/rpl/specter/impl.cljc
View file

@ -603,6 +603,9 @@
(defn dynamic-var? [v] (defn dynamic-var? [v]
(-> v meta :dynamic)) (-> v meta :dynamic))
;; original-obj stuff is done to avoid using functions with metadata on them
;; clojure's implementation of function metadata causes the function to do an
;; apply for every invocation
(defn direct-nav-obj [o] (defn direct-nav-obj [o]
(vary-meta o merge {:direct-nav true :original-obj o})) (vary-meta o merge {:direct-nav true :original-obj o}))