Smaller random ids

2008-04-26 05:49:53 -05:00 · 2008-04-26 05:49:53 -05:00 · d44d5aba34
parent 42bc93f66e
commit d44d5aba34
1 changed files with 1 additions and 1 deletions
--- a/extra/assocs/lib/lib.factor
+++ b/extra/assocs/lib/lib.factor
@ -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 )