[Gd-chatter] r11313 - trunk/fundev/sources/lib/string-extensions

[hannes at gwydiondylan.org]

Author: hannes
Date: Wed May  2 00:49:06 2007
New Revision: 11313

Modified:
   trunk/fundev/sources/lib/string-extensions/character-type.dylan
   trunk/fundev/sources/lib/string-extensions/library.dylan
Log:
Job: minor
provide uppercase? in module character-type, %Hash-Tables is not defined anywhere

Modified: trunk/fundev/sources/lib/string-extensions/character-type.dylan
==============================================================================
--- trunk/fundev/sources/lib/string-extensions/character-type.dylan	(original)
+++ trunk/fundev/sources/lib/string-extensions/character-type.dylan	Wed May  2 00:49:06 2007
@@ -74,9 +74,9 @@
 // This has been moved to %Hash-Tables in order to prevent circular library
 // definitions.
 //
-//define function uppercase? (c :: <character>) => answer :: <boolean>;
-//  c >= 'A' & c <= 'Z';
-//end function uppercase?;
+define function uppercase? (c :: <character>) => answer :: <boolean>;
+  c >= 'A' & c <= 'Z';
+end function uppercase?;
 
 // islower
 //

Modified: trunk/fundev/sources/lib/string-extensions/library.dylan
==============================================================================
--- trunk/fundev/sources/lib/string-extensions/library.dylan	(original)
+++ trunk/fundev/sources/lib/string-extensions/library.dylan	Wed May  2 00:49:06 2007
@@ -52,7 +52,7 @@
   // use %Hash-Tables, export: {uppercase?};
   export
     case-insensitive-equal, // KJP: added
-    alpha?, alphabetic?, digit?, alphanumeric?, whitespace?,
+    alpha?, alphabetic?, digit?, alphanumeric?, whitespace?, uppercase?,
     lowercase?, hex-digit?, graphic?, printable?,
     punctuation?, control?, byte-character?;
 end module character-type;