Remove unused words. Fixes #132.

basis/io/sockets/sockets.factor

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

basis/math/vectors/vectors.factor

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

basis/smtp/smtp.factor

@@ -79,15 +79,6 @@ ERROR: bad-email-address email ;
 : data ( -- )
     "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 -- )
     binary encode-output
     [ body>> ] [ encoding>> ] bi encode >base64-lines write

basis/threads/threads.factor

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