io.sockets.secure.unix: refactor (shutdown)

[factor.git] / basis / io / sockets / secure / unix / unix.factor

diff --git a/basis/io/sockets/secure/unix/unix.factor b/basis/io/sockets/secure/unix/unix.factor
index af719adcbceaf19b8a81b661744f9a83f4a9d8fd..f047194a59694766ecddba0edf2d683b4affb892 100644 (file)
--- a/basis/io/sockets/secure/unix/unix.factor
+++ b/basis/io/sockets/secure/unix/unix.factor
@@ -28,11 +28,8 @@ M: secure (accept)
         addrspec>> (accept) [ |dispose f <ssl-socket> ] dip
     ] with-destructors ;
 
-: try-ssl-shutdown ( ssl-handle -- event )
-    dup handle>> SSL_shutdown check-ssl-error ;
-
 : (shutdown) ( ssl-handle -- )
-    dup try-ssl-shutdown
+    dup dup handle>> SSL_shutdown check-ssl-error
     [ dupd wait-for-fd (shutdown) ] [ drop ] if* ;
 
 M: ssl-handle shutdown