From 78cb1140f4beb6388e3cd3050bc5fb464c8e364b Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 3 Oct 2010 10:33:52 -0500
Subject: [PATCH] Add ch-upper? and ch-lower? words
---
basis/unicode/case/case.factor | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/basis/unicode/case/case.factor b/basis/unicode/case/case.factor
index 9726b6dd78..82ff55fb9f 100644
--- 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 = ;