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

[factor.git] / extra / redis / assoc / assoc.factor

diff --git a/extra/redis/assoc/assoc.factor b/extra/redis/assoc/assoc.factor
index 2830e93b25cc7212d9cdf83d5d6f3384c36c669d..e8bdbbb9358d84656a90cfa9c0f574c3ea706a9d 100644 (file)
--- 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= ;