calendar: change >gmt, >local-time to clone.

[factor.git] / basis / calendar / format / format.factor

diff --git a/basis/calendar/format/format.factor b/basis/calendar/format/format.factor
index 48a77d196214dd9bbd7ee5a06efeb384efdce555..9126352769e0f7805ce3f1bd8a8580c38d9f3b45 100644 (file)
--- a/basis/calendar/format/format.factor
+++ b/basis/calendar/format/format.factor
@@ -110,7 +110,7 @@ M: timestamp year. year>> year. ;
     [ hh:mm:ss ] with-string-writer ;
 
 : timestamp>ymdhms ( timestamp -- str )
-    [ clone >gmt YYYY-MM-DD " " hh:mm:ss ] with-string-writer ;
+    [ >gmt YYYY-MM-DD " " hh:mm:ss ] with-string-writer ;
 
 : write-gmt-offset-hhmm ( gmt-offset -- )
     [ hour>> dup 0 < "-" "+" ? write abs write-00 ] [ mm ] bi ;
@@ -185,10 +185,10 @@ ALIAS: timestamp>rfc822 timestamp>rfc2822
     ] with-string-writer ;
 
 : timestamp>http-string ( timestamp -- str )
-    clone >gmt timestamp>rfc2822 ;
+    >gmt timestamp>rfc2822 ;
 
 : timestamp>cookie-string ( timestamp -- str )
-    clone >gmt timestamp>rfc1036 ;
+    >gmt timestamp>rfc1036 ;
 
 : write-timestamp ( timestamp -- )
     { DAY ", " D " " MONTH " " YYYY " " hh:mm:ss } formatted ;