random.windows: reduce verbosity of windows-crypto-context random-bytes*

factor-shell
Alexander Iljin 2017-03-16 11:42:31 +03:00 committed by John Benediktsson
parent be20da972a
commit 261439fec6
1 changed files with 1 additions and 1 deletions

View File

@ -46,7 +46,7 @@ ERROR: acquire-crypto-context-failed provider type error ;
initialize-crypto-context ; inline
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 ;
! Some Windows installations still don't work, so just set