smtp: Make the test pass on Windows.

diff --git a/basis/smtp/smtp-tests.factor b/basis/smtp/smtp-tests.factor
index c7127c61b9081976eba414d39a2f5a70f7e2b5ce..8e9c5d0e263e2f937e36983be57d123cf6218ea6 100644 (file)
--- a/basis/smtp/smtp-tests.factor
+++ b/basis/smtp/smtp-tests.factor
@@ -1,7 +1,7 @@
-USING: combinators continuations smtp tools.test io.streams.string
-io.sockets io.sockets.secure threads smtp.server kernel sequences
-namespaces logging accessors assocs sorting smtp.private
-concurrency.promises system ;
+USING: accessors assocs combinators concurrency.promises
+continuations fry io.sockets io.sockets.secure io.streams.string
+kernel namespaces sequences smtp smtp.private smtp.server
+sorting system tools.test ;
 IN: smtp.tests
 
 : with-test-smtp-config ( quot -- )
@@ -85,7 +85,7 @@ IN: smtp.tests
             [ to>> [ extract-email ] map ]
             [ from>> extract-email ]
             ! To get the smtp server to clean up itself
-            [ [ send-email ] ignore-errors drop ]
+            [ '[ _ send-email ] ignore-errors ]
         } cleave
     ] with-test-smtp-config
 ] unit-test