From cab001234ae6148bf4bf056dbe78f1a203011572 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 18 Nov 2014 14:02:44 -0800
Subject: [PATCH] io.sockets.windows: Fix unit test--recover leaves socket on
 stack, nip it.

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

diff --git a/basis/io/sockets/windows/windows-tests.factor b/basis/io/sockets/windows/windows-tests.factor
index 1a010508f3..50ab0c05e0 100644
--- a/basis/io/sockets/windows/windows-tests.factor
+++ b/basis/io/sockets/windows/windows-tests.factor
@@ -18,6 +18,6 @@ IN: io.sockets.windows.tests
 { t } [
     google-socket [
         [  1337 -8 set-ioctl-socket ]
-        [ [ winsock-exception? ] [ n>> 10045 = ] bi and ] recover
+        [ nip [ winsock-exception? ] [ n>> 10045 = ] bi and ] recover
     ] with-disposal
 ] unit-test