Smaller random ids

db4
Slava Pestov 2008-04-26 05:49:53 -05:00
parent 42bc93f66e
commit d44d5aba34
1 changed files with 1 additions and 1 deletions

View File

@ -38,7 +38,7 @@ IN: assocs.lib
: insert ( value variable -- ) namespace insert-at ;
: generate-key ( assoc -- str )
>r 256 random-bits >hex r>
>r 32 random-bits >hex r>
2dup key? [ nip generate-key ] [ drop ] if ;
: set-at-unique ( value assoc -- key )