From 1fa63f97f0aed950006e37e24b78f943faa1739c Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sun, 25 Sep 2011 11:43:26 -0700
Subject: [PATCH] Removing unused private words.  See #132.

---
 basis/typed/typed.factor       | 3 ---
 basis/unicode/case/case.factor | 2 --
 2 files changed, 5 deletions(-)

diff --git a/basis/typed/typed.factor b/basis/typed/typed.factor
index fe2ba41722..fa6444675e 100644
--- a/basis/typed/typed.factor
+++ b/basis/typed/typed.factor
@@ -72,9 +72,6 @@ PREDICATE: typed-word < word "typed-word" word-prop >boolean ;
 
 ! typed outputs
 
-: output-mismatch-quot ( word types -- quot )
-    [ output-mismatch-error ] 2curry ;
-
 :: typed-outputs ( quot word types -- quot' )
     [ output-mismatch-error ] word types make-unboxer
     quot prepose ;
diff --git a/basis/unicode/case/case.factor b/basis/unicode/case/case.factor
index 9726b6dd78..fc4445378a 100644
--- a/basis/unicode/case/case.factor
+++ b/basis/unicode/case/case.factor
@@ -25,8 +25,6 @@ SYMBOL: locale ! Just casing locale, or overall?
 
 : lithuanian? ( -- ? ) locale get "lt" = ;
 
-: dot-over ( -- ch ) HEX: 307 ;
-
 : lithuanian>upper ( string -- lower )
     "i\u000307" "i" replace
     "j\u000307" "j" replace ;