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

defonce on all dynamic vars (allow alter-var-root)

Browse source
This commit is contained in:
Peter Taoussanis 2015-09-29 14:26:54 +07:00
parent f67f9da64e
commit 734e88b20c
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/taoensso/nippy.clj
View file

@ -335,7 +335,7 @@
(.writeLong out (.getMostSignificantBits x)) (.writeLong out (.getMostSignificantBits x))
(.writeLong out (.getLeastSignificantBits x))) (.writeLong out (.getLeastSignificantBits x)))
(def ^:dynamic *final-freeze-fallback* nil) (encore/defonce* ^:dynamic *final-freeze-fallback* nil)
(defn freeze-fallback-as-str [out x] (defn freeze-fallback-as-str [out x]
(-freeze-to-out {:nippy/unfreezable (encore/pr-edn x) :type (type x)} out)) (-freeze-to-out {:nippy/unfreezable (encore/pr-edn x) :type (type x)} out))
@ -491,7 +491,7 @@
(def ^:private class-method-sig (into-array Class [IPersistentMap])) (def ^:private class-method-sig (into-array Class [IPersistentMap]))
(def ^:dynamic *custom-readers* "{<hash-or-byte-id> (fn [data-input])}" nil) (encore/defonce* ^:dynamic *custom-readers* "{<hash-or-byte-id> (fn [data-input])}" nil)
(defn swap-custom-readers! [f] (alter-var-root #'*custom-readers* f)) (defn swap-custom-readers! [f] (alter-var-root #'*custom-readers* f))
(defn- read-custom! [type-id in] (defn- read-custom! [type-id in]