Remove switch from sequences-lib (exists as exchange).

diff --git a/extra/sequences/lib/lib-docs.factor b/extra/sequences/lib/lib-docs.factor
index c155bb47ec074f28e3236e32216c084603dc419a..e279230b1bcfa56f23c309fff4e9a5790bc3db32 100755 (executable)
--- 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 } }\r
 { $description "Returns a new sequence where each element is an array of { index, value }" } ;\r
 \r
-HELP: switch\r
-{ $values { "x" number } { "y" number } { "seq" sequence } } \r
-{ $description "Swaps the values between indices 'x' and 'y' in the sequence." }\r
-{ $examples\r
-  { $example \r
-    "USING: sequences.lib ;"\r
-    "1 2 \"asdf\" [ switch ] keep"\r
-    "\"adsf\"" }\r
-} ;\r
-\r
-\r

diff --git a/extra/sequences/lib/lib.factor b/extra/sequences/lib/lib.factor
index c23457a3321458b0e4c1cab3bf0036090c11f255..fe9d9bb587d26e50e244e68fa76fd39df7b79d47 100755 (executable)
--- 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 ;
-