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

Remove unused words. Fixes #132.

db4
John Benediktsson 2011-10-19 10:28:45 -07:00
parent 8baf015580
commit fb2aab3545
4 changed files with 3 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/io/sockets/sockets.factor
View File

@ -271,10 +271,6 @@ M: object (client) ( remote -- client-in client-out local )
TUPLE: server-port < port addr encoding ; TUPLE: server-port < port addr encoding ;
: check-server-port ( port -- port )
dup check-disposed
dup server-port? [ "Not a server port" throw ] unless ; inline
GENERIC: (server) ( addrspec -- handle ) GENERIC: (server) ( addrspec -- handle )
GENERIC: (accept) ( server addrspec -- handle sockaddr ) GENERIC: (accept) ( server addrspec -- handle sockaddr )
@ -297,13 +293,13 @@ ERROR: invalid-port object ;
: check-connectionless-port ( port -- port ) : check-connectionless-port ( port -- port )
dup { [ datagram-port? ] [ raw-port? ] } 1|| [ invalid-port ] unless ; dup { [ datagram-port? ] [ raw-port? ] } 1|| [ invalid-port ] unless ;
: check-send ( packet addrspec port -- packet addrspec port ) : check-send ( packet addrspec port -- packet addrspec port )
check-connectionless-port dup check-disposed check-port ; check-connectionless-port dup check-disposed check-port ;
: check-receive ( port -- port ) : check-receive ( port -- port )
check-connectionless-port dup check-disposed ; check-connectionless-port dup check-disposed ;
HOOK: (send) io-backend ( packet addrspec datagram -- ) HOOK: (send) io-backend ( packet addrspec datagram -- )
: addrinfo>addrspec ( addrinfo -- addrspec ) : addrinfo>addrspec ( addrinfo -- addrspec )

1
basis/math/vectors/vectors.factor
View File

@ -49,7 +49,6 @@ GENERIC: v*high ( u v -- w )
<PRIVATE <PRIVATE
: (h+) ( u -- w ) 2 <groups> [ first2 + ] map ; : (h+) ( u -- w ) 2 <groups> [ first2 + ] map ;
: (h-) ( u -- w ) 2 <groups> [ first2 - ] map ;
PRIVATE> PRIVATE>
GENERIC: v*hs+ ( u v -- w ) GENERIC: v*hs+ ( u v -- w )

9
basis/smtp/smtp.factor
View File

@ -79,15 +79,6 @@ ERROR: bad-email-address email ;
: data ( -- ) : data ( -- )
"DATA" command ; "DATA" command ;
ERROR: message-contains-dot message ;
M: message-contains-dot summary ( obj -- string )
drop "Message cannot contain . on a line by itself" ;
: validate-message ( msg -- msg' )
"." over member?
[ message-contains-dot ] when ;
: send-body ( email -- ) : send-body ( email -- )
binary encode-output binary encode-output
[ body>> ] [ encoding>> ] bi encode >base64-lines write [ body>> ] [ encoding>> ] bi encode >base64-lines write

2
basis/threads/threads.factor
View File

@ -167,8 +167,6 @@ CONSTANT: [start]
stop stop
] ]
: no-runnable-threads ( -- ) die ;
GENERIC: (next) ( obj thread -- obj' ) GENERIC: (next) ( obj thread -- obj' )
M: thread (next) M: thread (next)