From 835ed00a14d824155e313bc9a265fcaf45abb4b5 Mon Sep 17 00:00:00 2001 From: "chris.double" Date: Tue, 8 Aug 2006 00:29:44 +0000 Subject: [PATCH] fix calendar timestamp>http-string The timestamp>http-string kept the timestamp around on the stack due to an extra dup. --- contrib/calendar/calendar.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/contrib/calendar/calendar.factor b/contrib/calendar/calendar.factor index 60eca30acb..a877b0b26b 100644 --- a/contrib/calendar/calendar.factor +++ b/contrib/calendar/calendar.factor @@ -272,5 +272,5 @@ M: number +second ( timestamp n -- timestamp ) dup timestamp-year unparse write bl dup timestamp-hour 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 ;