From 7a3438497fab9d0a1862a62467204768cea8c6d5 Mon Sep 17 00:00:00 2001
From: root <root@homernaut.(none)>
Date: Sun, 29 May 2011 22:58:01 -0700
Subject: [PATCH] couple more ordered set operations

---
 src/clj_redis/client.clj | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/clj_redis/client.clj b/src/clj_redis/client.clj
index 405c23d..6effbb4 100644
--- a/src/clj_redis/client.clj
+++ b/src/clj_redis/client.clj
@@ -231,6 +231,12 @@
 (defn zremrangebyscore [p ^String k ^Double start ^Double end]
   (lease p (fn [^Jedis j] (.zremrangeByScore j k start end))))
 
+(defn zinterstore [p ^String d k]
+  (lease p (fn [^Jedis j] (.zinterstore j d ^"[Ljava.lang.String;" (into-array k)))))
+
+(defn zunionstore [p ^String d k]
+  (lease p (fn [^Jedis j] (.zunionstore j d ^"[Ljava.lang.String;" (into-array k)))))
+
 
 ; Hashes