From 8705ef49d2b16643fa4bc45aa8a04d5661c44f30 Mon Sep 17 00:00:00 2001
From: Doug Coleman <erg@trifocus.net>
Date: Mon, 17 Oct 2005 01:50:43 +0000
Subject: [PATCH] Added ch>lower, ch>upper, >lower, >upper

---
 library/collections/strings.factor | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/library/collections/strings.factor b/library/collections/strings.factor
index 2f256f48f9..10ab87eef5 100644
--- a/library/collections/strings.factor
+++ b/library/collections/strings.factor
@@ -20,6 +20,11 @@ PREDICATE: integer digit     CHAR: 0 CHAR: 9 between? ;
 PREDICATE: integer printable CHAR: \s CHAR: ~ between? ;
 PREDICATE: integer control   "\0\e\r\n\t\u0008\u007f" member? ;
 
+: ch>lower ( n -- n ) dup LETTER? [ HEX: 20 + ] when ;
+: ch>upper ( n -- n ) dup letter? [ HEX: 20 - ] when ;
+: >lower ( str -- str ) [ ch>lower ] map ;
+: >upper ( str -- str ) [ ch>upper ] map ;
+
 : quotable? ( ch -- ? )
     #! In a string literal, can this character be used without
     #! escaping?