factor: trim using lists

[factor.git] / basis / channels / channels.factor

diff --git a/basis/channels/channels.factor b/basis/channels/channels.factor
index 870085f77afbee1540475f5d3293a5d6892212b0..8424d50572ac7d5a6508b93978652b6bf8172ef6 100644 (file)
--- a/basis/channels/channels.factor
+++ b/basis/channels/channels.factor
@@ -2,8 +2,7 @@
 ! See http://factorcode.org/license.txt for BSD license.
 !
 ! Channels - based on ideas from newsqueak
-USING: kernel sequences threads continuations
-random math accessors ;
+USING: accessors kernel random sequences threads ;
 IN: channels
 
 TUPLE: channel receivers senders ;
@@ -31,11 +30,11 @@ GENERIC: from ( channel -- value )
 
 PRIVATE>
 
-M: channel to ( value channel -- )
+M: channel to
     dup receivers>>
     [ dup wait to ] [ nip (to) ] if-empty ;
 
-M: channel from ( channel -- value )
+M: channel from
     [ self ] dip
     notify senders>>
     [ (from) ] unless-empty