[Gd-chatter] r11680 - trunk/fundev/sources/system

[turbo24prg at gwydiondylan.org]

Author: turbo24prg
Date: Sun Feb 17 18:36:22 2008
New Revision: 11680

Modified:
   trunk/fundev/sources/system/date.dylan
Log:
Job: minor
added %T directive


Modified: trunk/fundev/sources/system/date.dylan
==============================================================================
--- trunk/fundev/sources/system/date.dylan	(original)
+++ trunk/fundev/sources/system/date.dylan	Sun Feb 17 18:36:22 2008
@@ -385,6 +385,9 @@
         'k' => wrap(" ", hours);
         'M' => wrap("0", minutes);
         'S' => wrap("0", seconds);
+	'T' => concatenate(wrap("0", hours), ":",
+                           wrap("0", minutes), ":",
+			   wrap("0", seconds));
         'm' => wrap("0", month);
         'd' => wrap("0", day);
         'e' => wrap(" ", day);