Remove redundant word
parent
a48120c80b
commit
b6befe6100
|
@ -37,9 +37,6 @@ IN: assocs.lib
|
|||
|
||||
: insert ( value variable -- ) namespace insert-at ;
|
||||
|
||||
: 2seq>assoc ( keys values exemplar -- assoc )
|
||||
>r 2array flip r> assoc-like ;
|
||||
|
||||
: generate-key ( assoc -- str )
|
||||
>r 256 random-bits >hex r>
|
||||
2dup key? [ nip generate-key ] [ drop ] if ;
|
||||
|
|
Loading…
Reference in New Issue