From 261439fec6ac6e2db6fdb009dcca8c61876f4ac1 Mon Sep 17 00:00:00 2001
From: Alexander Iljin <ajsoft@yandex.ru>
Date: Thu, 16 Mar 2017 11:42:31 +0300
Subject: [PATCH] random.windows: reduce verbosity of windows-crypto-context
 random-bytes*

---
 basis/random/windows/windows.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/random/windows/windows.factor b/basis/random/windows/windows.factor
index af02540ba0..c2acd47ddd 100755
--- 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