From: Doug Coleman <doug.coleman@gmail.com>
Date: Mon, 20 Dec 2021 08:24:29 +0000 (-0600)
Subject: io.sockets.secure.unix: refactor (shutdown)
X-Git-Tag: 0.99~2190
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=9cf9c4128edc2643ceb5233bb6226fa398cd3d4a

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

diff --git a/basis/io/sockets/secure/unix/unix.factor b/basis/io/sockets/secure/unix/unix.factor
index af719adcbc..f047194a59 100644
--- 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