From 0b57ce6c52c4578cc3de95a5d1900e544e9f4a6e Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 1 Oct 2008 17:46:09 -0700
Subject: [PATCH] Remove switch from sequences-lib (exists as exchange).

---
 extra/sequences/lib/lib-docs.factor | 11 -----------
 extra/sequences/lib/lib.factor      |  5 -----
 2 files changed, 16 deletions(-)

diff --git a/extra/sequences/lib/lib-docs.factor b/extra/sequences/lib/lib-docs.factor
index c155bb47ec..e279230b1b 100755
--- a/extra/sequences/lib/lib-docs.factor
+++ b/extra/sequences/lib/lib-docs.factor
@@ -27,14 +27,3 @@ HELP: enumerate
 { $values { "seq" sequence } { "seq'" sequence } }
 { $description "Returns a new sequence where each element is an array of { index, value }" } ;
 
-HELP: switch
-{ $values { "x" number } { "y" number } { "seq" sequence } } 
-{ $description "Swaps the values between indices 'x' and 'y' in the sequence." }
-{ $examples
-  { $example 
-    "USING: sequences.lib ;"
-    "1 2 \"asdf\" [ switch ] keep"
-    "\"adsf\"" }
-} ;
-
-
diff --git a/extra/sequences/lib/lib.factor b/extra/sequences/lib/lib.factor
index c23457a332..fe9d9bb587 100755
--- a/extra/sequences/lib/lib.factor
+++ b/extra/sequences/lib/lib.factor
@@ -173,8 +173,3 @@ USE: random
 : enumerate ( seq -- seq' )
     <enum> >alist ;
 
-! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-
-: switch ( x y seq -- )
-    3dup swap [ nth ] dip [ [ move ] keep ] 2dip rot set-nth ;
-