Removing unused private words. See #132.

diff --git a/basis/typed/typed.factor b/basis/typed/typed.factor
index fe2ba417220650e9179f494e64005a6a8073092b..fa6444675e5e06770300a8c5ad5f11a6727689b7 100644 (file)
--- 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 9726b6dd78f63980d9916f3b18a5b66c48c7b36c..fc4445378a1fea5bce05a3c9ef6f94b6a98ac429 100644 (file)
--- 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 ;