factor: trim using lists

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

diff --git a/extra/redis/assoc/assoc.factor b/extra/redis/assoc/assoc.factor
index 2830e93b25cc7212d9cdf83d5d6f3384c36c669d..6a2a0b0ce5b6ffe5b0dc0d4593f81087c76d935c 100644 (file)
--- a/extra/redis/assoc/assoc.factor
+++ b/extra/redis/assoc/assoc.factor
@@ -1,6 +1,6 @@
 ! Copyright (C) 2009 Bruno Deferrari
 ! See http://factorcode.org/license.txt for BSD license.
-USING: assocs kernel redis sequences ;
+USING: assocs kernel redis ;
 IN: redis.assoc
 
 INSTANCE: redis assoc
@@ -11,11 +11,11 @@ M: redis assoc-size [ redis-dbsize ] with-redis ;
 
 M: redis >alist [ "*" redis-keys dup redis-mget zip ] with-redis ;
 
-M: redis set-at [ redis-set drop ] with-redis ;
+M: redis set-at [ redis-set ] 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 ] with-redis ;
 
 M: redis equal? assoc= ;