From fb2aab354528ce041eb998e073afdce7a41b70cb Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 19 Oct 2011 10:28:45 -0700
Subject: [PATCH] Remove unused words.  Fixes #132.

---
 basis/io/sockets/sockets.factor   | 10 +++-------
 basis/math/vectors/vectors.factor |  1 -
 basis/smtp/smtp.factor            |  9 ---------
 basis/threads/threads.factor      |  2 --
 4 files changed, 3 insertions(+), 19 deletions(-)

diff --git a/basis/io/sockets/sockets.factor b/basis/io/sockets/sockets.factor
index e322c7018e..6f1504b615 100644
--- 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 b389235342..eb322175a8 100644
--- 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 a4ba630f3c..75c6db9bbe 100644
--- 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 27eb8cfaad..c0b955cf7a 100644
--- 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)