steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Clean up io.servers.connection >insecure word

db4
Doug Coleman 2010-09-27 19:00:54 -05:00
parent b03268f047
commit 4ade3b6a5c
1 changed files with 10 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
basis/io/servers/connection/connection.factor
View File

@ -70,23 +70,20 @@ GENERIC: handle-client* ( threaded-server -- )
<PRIVATE <PRIVATE
GENERIC: (>insecure) ( obj -- obj ) GENERIC: >insecure ( obj -- obj )
M: inet (>insecure) ; M: inet >insecure 1array ;
M: inet4 (>insecure) ; M: inet4 >insecure 1array ;
M: inet6 (>insecure) ; M: inet6 >insecure 1array ;
M: local (>insecure) ; M: local >insecure 1array ;
M: integer (>insecure) internet-server ; M: integer >insecure internet-server 1array ;
M: string (>insecure) internet-server ; M: string >insecure internet-server 1array ;
M: array (>insecure) [ (>insecure) ] map ; M: array >insecure [ >insecure ] map ;
M: f (>insecure) ; M: f >insecure ;
: >insecure ( obj -- seq )
(>insecure) dup sequence? [ 1array ] unless ;
: >secure ( addrspec -- addrspec' ) : >secure ( addrspec -- addrspec' )
>insecure >insecure
[ dup { [ secure? ] [ not ] } 1|| [ <secure> ] unless ] map ; [ dup secure? [ <secure> ] unless ] map ;
: listen-on ( threaded-server -- addrspecs ) : listen-on ( threaded-server -- addrspecs )
[ secure>> >secure ] [ insecure>> >insecure ] bi append [ secure>> >secure ] [ insecure>> >insecure ] bi append