diff --git a/extra/assocs/lib/lib.factor b/extra/assocs/lib/lib.factor index 92fb9aac81..247be44bad 100755 --- 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 )