steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Moved delete-random to sequences.lib 

Add a space to a lot of lines =-O
release
Doug Coleman 2007-11-05 01:51:38 -06:00
parent 3e40ab714e
commit 6de2fc5399
2 changed files with 27 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/channels/channels-tests.factor
View File

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

5
extra/channels/channels.factor
View File

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