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

random-256 -> 256 random-bits

db4
Doug Coleman 2008-03-19 16:19:37 -05:00
parent 9c74ba2f2f
commit cd4f2028cd
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/channels/remote/remote.factor
View File

@ -14,7 +14,7 @@ IN: channels.remote
PRIVATE> PRIVATE>
: publish ( channel -- id ) : publish ( channel -- id )
random-256 dup >r remote-channels set-at r> ; 256 random-bits dup >r remote-channels set-at r> ;
: get-channel ( id -- channel ) : get-channel ( id -- channel )
remote-channels at ; remote-channels at ;

2
extra/concurrency/messaging/messaging.factor
View File

@ -40,7 +40,7 @@ M: thread send ( message thread -- )
TUPLE: synchronous data sender tag ; TUPLE: synchronous data sender tag ;
: <synchronous> ( data -- sync ) : <synchronous> ( data -- sync )
self random-256 synchronous construct-boa ; self 256 random-bits synchronous construct-boa ;
TUPLE: reply data tag ; TUPLE: reply data tag ;

2
extra/http/server/auth/providers/providers.factor
View File

@ -27,7 +27,7 @@ GENERIC: new-user ( user provider -- user/f )
user email>> length 0 > [ user email>> length 0 > [
user email>> email = [ user email>> email = [
user user
random-256 >hex >>ticket 256 random-bits >hex >>ticket
dup provider update-user dup provider update-user
] [ f ] if ] [ f ] if
] [ f ] if ] [ f ] if