1 files changed, 0 insertions, 28 deletions
diff --git a/src/utils.clj b/src/utils.clj
index c1a998c..bca60b3 100755
--- a/src/utils.clj
+++ b/src/utils.clj
@@ -431,34 +431,6 @@
    where session is defined."
   `(if (is-super-vip? ~'session) ~e (unknown-page)))
 
-
-;; Time-expiry memoize
-;; http://www.mail-archive.com/clojure@googlegroups.com/msg20038.html
-
-(defn expire-cached-results* [cached-results time-to-live]
-  "Expire items from the cached function results."
-  (into {}
-    (filter (fn [[k v]]
-      (> time-to-live
-        (- (System/currentTimeMillis) (:time v)))) cached-results)))
-
-(defn ttl-memoize
-  "Returns a memoized version of a referentially transparent function. The
-  memoized version of the function keeps a cache of the mapping from arguments
-  to results and, when calls with the same arguments are repeated often, has
-  higher performance at the expense of higher memory use. Cached results are
-  removed from the cache when their time to live value expires."
-  [function time-to-live]
-  (let [cached-results (atom {})]
-    (fn [& arguments]
-      (swap! cached-results expire-cached-results* time-to-live)
-      (if-let [entry (find @cached-results arguments)]
-        (:result (val entry))
-        (let [result (apply function arguments)]
-          (swap! cached-results assoc arguments
-            { :result result :time (System/currentTimeMillis)})
-          result)))))
-
 ;; Misc index/sorting funcs
 
 (defn sort-by-index-in