From: Bruno Deferrari <utizoc@gmail.com>
Date: Mon, 11 May 2009 03:50:22 +0000 (-0300)
Subject: redis.assoc: Use redis-flushdb in clear-assoc
X-Git-Tag: 0.97~5924^2~6^2
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=cb76bddd8fb523d90d447d95b2fd9bf82c974c69

redis.assoc: Use redis-flushdb in clear-assoc
---

diff --git a/extra/redis/assoc/assoc.factor b/extra/redis/assoc/assoc.factor
index 2830e93b25..e8bdbbb935 100644
--- a/extra/redis/assoc/assoc.factor
+++ b/extra/redis/assoc/assoc.factor
@@ -15,7 +15,7 @@ M: redis set-at [ redis-set drop ] with-redis ;
 
 M: redis delete-at [ redis-del drop ] with-redis ;
 
-M: redis clear-assoc [ "*" redis-keys [ redis-del drop ] each ] with-redis ;
+M: redis clear-assoc [ redis-flushdb drop ] with-redis ;
 
 M: redis equal? assoc= ;