Add ch-upper? and ch-lower? words

diff --git a/basis/unicode/case/case.factor b/basis/unicode/case/case.factor
index 9726b6dd78f63980d9916f3b18a5b66c48c7b36c..82ff55fb9f52d97376a020fb356581b6926da430 100644 (file)
--- a/basis/unicode/case/case.factor
+++ b/basis/unicode/case/case.factor
@@ -122,6 +122,10 @@ HINTS: >title string ;
 : >case-fold ( string -- fold )
     >upper >lower ;
 
+: ch-lower? ( ch -- ? ) dup ch>lower = ;
+
+: ch-upper? ( ch -- ? ) dup ch>upper = ;
+
 : lower? ( string -- ? ) dup >lower = ;
 
 : upper? ( string -- ? ) dup >upper = ;