redis: allow redis-host and redis-port to be specified

diff --git a/extra/redis/redis.factor b/extra/redis/redis.factor
index c138dd654ed541e015ac997a69c144b4a56e1e7a..f5dafa7ed1833c30ed8c0036f620422924a90908 100644 (file)
--- a/extra/redis/redis.factor
+++ b/extra/redis/redis.factor
@@ -1,8 +1,9 @@
 ! Copyright (C) 2009 Bruno Deferrari
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors calendar io io.sockets io.streams.duplex
-io.timeouts kernel redis.command-writer redis.response-parser
-io.encodings.utf8 ;
+USING: accessors calendar io io.encodings.utf8 io.sockets
+io.streams.duplex io.timeouts kernel redis.command-writer
+redis.response-parser ;
+QUALIFIED: namespaces
 IN: redis
 
 ! Connection
@@ -101,12 +102,16 @@ IN: redis
 ! Redis object
 TUPLE: redis host port encoding password ;
 
-CONSTANT: default-redis-port 6379
+SYMBOL: redis-host
+"127.0.0.1" redis-host namespaces:set-global
+
+SYMBOL: redis-port
+6379 redis-port namespaces:set-global
 
 : <redis> ( -- redis )
     redis new
-        "127.0.0.1" >>host
-        default-redis-port >>port
+        redis-host namespaces:get >>host
+        redis-port namespaces:get >>port
         utf8 >>encoding ;
 
 : redis-do-connect ( redis -- stream )