Disable cache

This commit is contained in:
Peter Taoussanis 2016-04-13 19:18:34 +07:00
parent 699bb7cb51
commit 8fda27e996

View file

@ -709,10 +709,10 @@
;;;; Caching ; Experimental ;;;; Caching ; Experimental
(def ^:dynamic ^:private *cache_* "{<x> <cache-idx>}" nil) (def ^:dynamic ^:private *cache_* "{<x> <cache-idx>}" nil)
(defmacro ^:private with-cache [& body] ;; (defmacro ^:private with-cache [& body]
`(binding [*cache_* (atom nil)] ~@body)) ;; `(binding [*cache_* (atom nil)] ~@body))
;; (defmacro ^:private with-cache [& body] `(do ~@body)) ; Disable (defmacro ^:private with-cache [& body] `(do ~@body)) ; Disable
(defrecord CacheWrapped [value]) (defrecord CacheWrapped [value])
(defn cache "Experimental!" [x] (defn cache "Experimental!" [x]