From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 14 Oct 2016 23:54:32 +0000 (-0700)
Subject: redis.command-writer: adding SWAPDB command.
X-Git-Tag: unmaintained~579
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=d8554ad24e841eb028c0845bfff305d1790054f7

redis.command-writer: adding SWAPDB command.

See: https://github.com/antirez/redis/commit/c7a4e694ad3689d934897b0d2c37144d7b2d0b97
---

diff --git a/extra/redis/command-writer/command-writer.factor b/extra/redis/command-writer/command-writer.factor
index f407a12506..1e9c643ccd 100644
--- a/extra/redis/command-writer/command-writer.factor
+++ b/extra/redis/command-writer/command-writer.factor
@@ -106,6 +106,7 @@ PRIVATE>
 ! Multiple db
 : select ( integer -- ) 1array "SELECT" write-command ;
 : move ( integer key -- ) 2array "MOVE" write-command ;
+: swapdb ( old new -- ) 2array "SWAPDB" write-command ;
 : flushdb ( -- ) { "FLUSHDB" } write-resp ;
 : flushall ( -- ) { "FLUSHALL" } write-resp ;