From b63aaff1c57bdce947c88597990d9244512f7972 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Thu, 2 Jun 2016 10:25:11 -0700
Subject: [PATCH] io.sockets.secure: (server) needs a method on secure for
Windows too. Move the method to a vocab that both platforms load.
---
basis/io/sockets/secure/secure.factor | 2 ++
basis/io/sockets/secure/unix/unix.factor | 2 --
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/basis/io/sockets/secure/secure.factor b/basis/io/sockets/secure/secure.factor
index 9536ed7d33..1f1de35182 100644
--- a/basis/io/sockets/secure/secure.factor
+++ b/basis/io/sockets/secure/secure.factor
@@ -62,6 +62,8 @@ C: <secure> secure
M: secure present addrspec>> present " (secure)" append ;
+M: secure (server) addrspec>> (server) ;
+
CONSULT: inet secure addrspec>> ;
M: secure resolve-host ( secure -- seq )
diff --git a/basis/io/sockets/secure/unix/unix.factor b/basis/io/sockets/secure/unix/unix.factor
index a57dfd1e23..28cf6298c0 100644
--- a/basis/io/sockets/secure/unix/unix.factor
+++ b/basis/io/sockets/secure/unix/unix.factor
@@ -24,8 +24,6 @@ M: secure (get-local-address) addrspec>> (get-local-address) ;
M: secure establish-connection ( client-out remote -- )
addrspec>> [ establish-connection ] [ secure-connection ] 2bi ;
-M: secure (server) addrspec>> (server) ;
-
M: secure (accept)
[
addrspec>> (accept) [ |dispose f <ssl-socket> ] dip