Skip to content
Browse files

compatible with latest core.cache

  • Loading branch information...
1 parent 028e393 commit e6e3aff9a7e0d782a373664506f0b859992b7d09 @fogus fogus committed Jul 13, 2012
Showing with 6 additions and 6 deletions.
  1. +1 −1 pom.xml
  2. +4 −4 src/main/clojure/clojure/core/memoize.clj
  3. +1 −1 src/test/clojure/clojure/core/memoize/tests.clj
View
2 pom.xml
@@ -33,7 +33,7 @@
<dependency>
<groupId>org.clojure</groupId>
<artifactId>core.cache</artifactId>
- <version>0.5.0</version>
+ <version>0.6.1</version>
</dependency>
</dependencies>
View
8 src/main/clojure/clojure/core/memoize.clj
@@ -178,7 +178,7 @@
([f limit] (memo-fifo f limit {}))
([f limit base]
(build-memoizer
- #(PluggableMemoization. %1 (cache/fifo-cache-factory %2 %3))
+ #(PluggableMemoization. %1 (cache/fifo-cache-factory %3 :threshold %2))
f
limit
base)))
@@ -216,7 +216,7 @@
([f limit] (memo-lru f limit {}))
([f limit base]
(build-memoizer
- #(PluggableMemoization. %1 (cache/lru-cache-factory %2 %3))
+ #(PluggableMemoization. %1 (cache/lru-cache-factory %3 :threshold %2))
f
limit
base)))
@@ -242,7 +242,7 @@
([f limit] (memo-ttl f limit {}))
([f limit base]
(build-memoizer
- #(PluggableMemoization. %1 (cache/ttl-cache-factory %2 %3))
+ #(PluggableMemoization. %1 (cache/ttl-cache-factory %3 :ttl %2))
f
limit
{})))
@@ -265,7 +265,7 @@
([f limit] (memo-lu f limit {}))
([f limit base]
(build-memoizer
- #(PluggableMemoization. %1 (cache/lu-cache-factory %2 %3))
+ #(PluggableMemoization. %1 (cache/lu-cache-factory %3 :threshold %2))
f
limit
base)))
View
2 src/test/clojure/clojure/core/memoize/tests.clj
@@ -147,7 +147,7 @@
(defn memo-pass-through [f limit]
(build-memoizer
- #(PluggableMemoization. %1 (PassThrough. (ttl-cache-factory %2 %3)))
+ #(PluggableMemoization. %1 (PassThrough. (ttl-cache-factory %3 :ttl %2)))
f
limit
{}))

0 comments on commit e6e3aff

Please sign in to comment.
Something went wrong with that request. Please try again.