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

View File

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