Remove unused words. Fixes #132.

diff --git a/basis/io/sockets/sockets.factor b/basis/io/sockets/sockets.factor
index e322c7018e8a2fa5d90651a89e08f92249dcbf89..6f1504b6158a5b4c26f2e2f0ebf93251bb2bc964 100644 (file)
--- a/basis/io/sockets/sockets.factor
+++ b/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 )

diff --git a/basis/math/vectors/vectors.factor b/basis/math/vectors/vectors.factor
index b389235342c9a4e8a030033956f21625f206f903..eb322175a8a63e37a69446699764de53c251d246 100644 (file)
--- a/basis/math/vectors/vectors.factor
+++ b/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 )

diff --git a/basis/smtp/smtp.factor b/basis/smtp/smtp.factor
index a4ba630f3c1eb60861abded26a08dc08b5090918..75c6db9bbe6a92e4375687d6ef5dc5c62a6e0637 100644 (file)
--- a/basis/smtp/smtp.factor
+++ b/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

diff --git a/basis/threads/threads.factor b/basis/threads/threads.factor
index 27eb8cfaad9b347f9b0760020be40e64564af555..c0b955cf7adc477be0dab8a0af70a71284a51815 100644 (file)
--- a/basis/threads/threads.factor
+++ b/basis/threads/threads.factor
@@ -167,8 +167,6 @@ CONSTANT: [start]
         stop
     ]
 
-: no-runnable-threads ( -- ) die ;
-
 GENERIC: (next) ( obj thread -- obj' )
 
 M: thread (next)