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

Fix random number mechanism in remote channels

release
Doug Coleman 2007-11-05 02:04:33 -06:00
parent cd34d676ab
commit 40752e447d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/channels/remote/remote.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.
! !
! Remote Channels ! Remote Channels
USING: kernel init namespaces assocs arrays USING: kernel init namespaces assocs arrays random
sequences channels match concurrency concurrency.distributed ; sequences channels match concurrency concurrency.distributed ;
IN: channels.remote IN: channels.remote
@ -13,7 +13,7 @@ IN: channels.remote
PRIVATE> PRIVATE>
: publish ( channel -- id ) : publish ( channel -- id )
random-64 dup >r remote-channels set-at r> ; random-256 dup >r remote-channels set-at r> ;
: get-channel ( id -- channel ) : get-channel ( id -- channel )
remote-channels at ; remote-channels at ;