memcached: better to not duplicate with-memcached.

diff --git a/extra/memcached/memcached-tests.factor b/extra/memcached/memcached-tests.factor
index e05c5aadd567de826ce47353ff81c2f0b9e60597..120d560177f98abda1d620c201f956dea34d5a00 100644 (file)
--- a/extra/memcached/memcached-tests.factor
+++ b/extra/memcached/memcached-tests.factor
@@ -6,14 +6,14 @@ io.timeouts kernel math math.functions memcached
 memcached.private namespaces present sequences sorting system
 threads tools.test ;
 
+QUALIFIED: memcached
+
 IN: memcached.tests
 
 ! Use a version of with-memcached that sets a timeout
 : with-memcached ( quot -- )
-    memcached-server get-global binary [
-        5 seconds input-stream get set-timeout
-        call
-    ] with-client ; inline
+    [ 5 seconds input-stream get set-timeout ] prepose
+    memcached:with-memcached ; inline
 
 <PRIVATE