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

diff --git a/basis/random/windows/windows.factor b/basis/random/windows/windows.factor
index af02540ba0671a5d0464fe620b68c396753f3862..c2acd47ddd944a7ca472eccf38fdbd915d0b9346 100755 (executable)
--- a/basis/random/windows/windows.factor
+++ b/basis/random/windows/windows.factor
@@ -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