From 40e5ed8b8738e4e300a6f4657641a503dd12f07f Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Fri, 8 Oct 2010 18:55:37 -0700
Subject: [PATCH] ascii: remove ch-lower? and ch-upper? words, since they're
 the same as letter? and LETTER?

---
 basis/ascii/ascii.factor | 3 ---
 1 file changed, 3 deletions(-)

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