fix calendar timestamp>http-string

The timestamp>http-string kept the timestamp around on the stack due to an extra dup.
chris.double 2006-08-08 00:29:44 +00:00
parent 55ec0e3a91
commit 835ed00a14
1 changed files with 1 additions and 1 deletions

View File

@ -272,5 +272,5 @@ M: number +second ( timestamp n -- timestamp )
dup timestamp-year unparse write bl dup timestamp-year unparse write bl
dup timestamp-hour unparse 2 CHAR: 0 pad-left write ":" write dup timestamp-hour unparse 2 CHAR: 0 pad-left write ":" write
dup timestamp-minute unparse 2 CHAR: 0 pad-left write ":" write dup timestamp-minute unparse 2 CHAR: 0 pad-left write ":" write
dup timestamp-second >fixnum unparse 2 CHAR: 0 pad-left write " GMT" write timestamp-second >fixnum unparse 2 CHAR: 0 pad-left write " GMT" write
] string-out ; ] string-out ;