ignore gcc warning about write() return code not checked. It is esplicitily this...

[redis.git] / client-libraries / tcl / redis.tcl

diff --git a/client-libraries/tcl/redis.tcl b/client-libraries/tcl/redis.tcl
index 6cc713d2fbc4aea898ea6171af7d55cd51b06371..636444de50462788255ff24933fa7f04ad2661c8 100644 (file)
--- a/client-libraries/tcl/redis.tcl
+++ b/client-libraries/tcl/redis.tcl
@@ -19,7 +19,7 @@ array set ::redis::bulkarg {}
 
 # Flag commands requiring last argument as a bulk write operation
 foreach redis_bulk_cmd {
-    set setnx rpush lpush lset lrem sadd srem sismember echo
+    set setnx rpush lpush lset lrem sadd srem sismember echo getset smove
 } {
     set ::redis::bulkarg($redis_bulk_cmd) {}
 }
@@ -106,6 +106,6 @@ proc ::redis::redis_read_reply fd {
         - {return -code error [redis_read_line $fd]}
         $ {redis_bulk_read $fd}
         * {redis_multi_bulk_read $fd}
-        default {return -code error "Bad protocl, $type as reply type byte"}
+        default {return -code error "Bad protocol, $type as reply type byte"}
     }
 }