calendar.format: adding ctime format.

diff --git a/basis/calendar/format/format.factor b/basis/calendar/format/format.factor
index b80d99a636203b8f1f90e960c0901deb707100fe..6c602008c4c20ada349b2e5d3ec093f9760a474f 100644 (file)
--- a/basis/calendar/format/format.factor
+++ b/basis/calendar/format/format.factor
@@ -154,6 +154,14 @@ ALIAS: timestamp>rfc822 timestamp>rfc2822
 : timestamp>iso8601 ( timestamp -- str )
     [ write-iso8601 ] with-string-writer ;
 
+: write-ctime ( timestamp -- )
+    {
+        DAY " " MONTH " " DD " " hh ":" mm ":" ss " " YYYY
+    } formatted ;
+
+: timestamp>ctime-string ( timestamp -- str )
+    [ write-ctime ] with-string-writer ;
+
 : timestamp>git-string ( timestamp -- str )
     [
         {