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

use mutable cell for must-cache-paths state for cljs compatibility

Browse source
This commit is contained in:
Nathan Marz 2016-05-23 10:36:52 -04:00
parent 1e0a43c903
commit 218cbcb933
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.cljx
View file

@ -642,11 +642,11 @@
#+cljs (atom {}) #+cljs (atom {})
) )
(def ^:dynamic *must-cache-paths* false) (def MUST-CACHE-PATHS (mutable-cell false))
(defn must-cache-paths! (defn must-cache-paths!
([] (must-cache-paths! true)) ([] (must-cache-paths! true))
([v] (alter-var-root #'*must-cache-paths* (constantly v)))) ([v] (set-cell! MUST-CACHE-PATHS v)))
#+clj #+clj
(defn add-path-cache! [k v] (defn add-path-cache! [k v]
@ -707,7 +707,7 @@
(defn- magic-precompilation* [p params-atom failed-atom] (defn- magic-precompilation* [p params-atom failed-atom]
(let [magic-fail! (fn [& reason] (let [magic-fail! (fn [& reason]
(if *must-cache-paths* (if (get-cell MUST-CACHE-PATHS)
(println "Failed to cache path:" (apply str reason))) (println "Failed to cache path:" (apply str reason)))
(reset! failed-atom true) (reset! failed-atom true)
nil)] nil)]
@ -820,7 +820,7 @@
path (magic-precompilation* prepared-path params-atom failed-atom) path (magic-precompilation* prepared-path params-atom failed-atom)
] ]
(if @failed-atom (if @failed-atom
(if *must-cache-paths* (if (get-cell MUST-CACHE-PATHS)
(throw-illegal "Failed to cache path") (throw-illegal "Failed to cache path")
(->CachedPathInfo nil nil)) (->CachedPathInfo nil nil))
(let [precompiled (comp-paths* path) (let [precompiled (comp-paths* path)