Skip to content
Browse files

store update.

  • Loading branch information...
2 parents 888de9d + b03253f commit e7bb0f06cfa65d10644e43de425953271658f372 @bradford bradford committed Oct 21, 2010
Showing with 7 additions and 7 deletions.
  1. +7 −7 src/store/api.clj
View
14 src/store/api.clj
@@ -8,7 +8,7 @@
(let [f (s op)]
(apply f args))))
-(defn mk-store [s3 & m]
+(defn mk-store [s3 & [m]]
(let [m (or m identity)]
(obj {:put (fn [b v k]
(try-default nil put-clj s3 (m b) (str k) v))
@@ -36,14 +36,14 @@
(defn mk-store-cache [config]
(let [factory (v/make-socket-store-client-factory
- (v/make-client-config config))
- m (java.util.concurrent.ConcurrentHashMap.)]
+ (v/make-client-config config))
+ m (java.util.concurrent.ConcurrentHashMap.)]
(fn [client]
(if-let [c (get m client)]
- c
- (let [c (v/make-store-client factory client)]
- (.put m client c)
- c)))))
+ c
+ (let [c (v/make-store-client factory client)]
+ (.put m client c)
+ c)))))
(defn mk-vstore
[stores]

0 comments on commit e7bb0f0

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