Moved delete-random to sequences.lib

Add a space to a lot of lines =-O

extra/channels/channels-tests.factor

@@ -31,7 +31,7 @@ IN: temporary
     2 over to 
     1 over to 
     3 swap to 
-   [ <=> ] sort
+    natural-sort
 ] unit-test
 
 { V{ 1 2 4 9 } } [
@@ -44,5 +44,5 @@ IN: temporary
     2dup from swap push 
     2dup from swap push 
     dupd from swap push 
-   [ <=> ] sort
+    natural-sort
 ] unit-test

extra/channels/channels.factor

@@ -2,7 +2,7 @@
 ! See http://factorcode.org/license.txt for BSD license.
 !
 ! Channels - based on ideas from newsqueak
-USING: kernel sequences threads continuations random math ;
+USING: kernel sequences sequences.lib threads continuations random math ;
 IN: channels
 
 TUPLE: channel receivers senders ;
@@ -15,9 +15,6 @@ GENERIC: from ( channel -- value )
 
 <PRIVATE
 
-: delete-random ( seq -- value )
-    [ length random ] keep [ nth ] 2keep delete-nth ;
-
 : wait ( channel -- )
     [ channel-senders push stop ] curry callcc0 ;