io.sockets.secure: simplify with-secure-context

diff --git a/basis/io/sockets/secure/secure.factor b/basis/io/sockets/secure/secure.factor
index 2827c9d60c7f0d835a2a74924b8b6cdda73c8eca..1d23fdd6943197124ab70b15cbdc5b6802bddf1f 100644 (file)
--- a/basis/io/sockets/secure/secure.factor
+++ b/basis/io/sockets/secure/secure.factor
@@ -51,10 +51,8 @@ TUPLE: secure-context < disposable config handle ;
 HOOK: <secure-context> secure-socket-backend ( config -- context )
 
 : with-secure-context ( config quot -- )
-    [
-        [ <secure-context> ] [ [ secure-context set ] prepose ] bi*
-        with-disposal
-    ] with-scope ; inline
+    [ <secure-context> ] dip
+    '[ secure-context _ with-variable ] with-disposal ; inline
 
 TUPLE: secure
     { addrspec read-only }