random.windows: reduce verbosity of windows-crypto-context random-bytes*
parent
be20da972a
commit
261439fec6
|
@ -46,7 +46,7 @@ ERROR: acquire-crypto-context-failed provider type error ;
|
||||||
initialize-crypto-context ; inline
|
initialize-crypto-context ; inline
|
||||||
|
|
||||||
M: windows-crypto-context random-bytes* ( n windows-crypto-context -- bytes )
|
M: windows-crypto-context random-bytes* ( n windows-crypto-context -- bytes )
|
||||||
handle>> swap [ ] [ <byte-array> ] bi
|
handle>> swap dup <byte-array>
|
||||||
[ CryptGenRandom win32-error=0/f ] keep ;
|
[ CryptGenRandom win32-error=0/f ] keep ;
|
||||||
|
|
||||||
! Some Windows installations still don't work, so just set
|
! Some Windows installations still don't work, so just set
|
||||||
|
|
Loading…
Reference in New Issue