ascii: remove ch-lower? and ch-upper? words, since they're the same as letter? and...

diff --git a/basis/ascii/ascii.factor b/basis/ascii/ascii.factor
index a1bd87e5daef46313e8764d8e3e95a464fa43b4d..bd1b86b2793347fcf56dfa1923b9b87a4184a508 100644 (file)
--- a/basis/ascii/ascii.factor
+++ b/basis/ascii/ascii.factor
@@ -18,9 +18,6 @@ IN: ascii
 : >lower ( str -- lower ) [ ch>lower ] map ;\r
 : ch>upper ( ch -- upper ) dup letter? [ HEX: 20 - ] when ; inline\r
 : >upper ( str -- upper ) [ ch>upper ] map ;\r
-: ch-lower? ( ch -- ? ) dup ch>lower = ;\r
-: ch-upper? ( ch -- ? ) dup ch>upper = ;\r
-\r
 \r
 HINTS: >lower string ;\r
 HINTS: >upper string ;\r