256 random-bits

2008-03-19 16:19:54 -05:00 · 2008-03-19 16:19:54 -05:00 · 274c7d8cad
parent cd4f2028cd
commit 274c7d8cad
1 changed files with 1 additions and 1 deletions
--- a/extra/assocs/lib/lib.factor
+++ b/extra/assocs/lib/lib.factor
@ -41,7 +41,7 @@ IN: assocs.lib
    >r 2array flip r> assoc-like ;

 : generate-key ( assoc -- str )
-    >r random-256 >hex r>
+    >r 256 random-bits >hex r>
    2dup key? [ nip generate-key ] [ drop ] if ;

 : set-at-unique ( value assoc -- key )