steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

calendar: clone timestamps in >gmt and >local-time.

db4
John Benediktsson 2014-04-21 08:17:43 -07:00
parent d1b1eabf1e
commit 00ea6900db
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/calendar/calendar.factor
View File

@ -326,10 +326,10 @@ GENERIC: time- ( time1 time2 -- time3 )
] if ; ] if ;
: >local-time ( timestamp -- timestamp' ) : >local-time ( timestamp -- timestamp' )
gmt-offset-duration convert-timezone ; clone gmt-offset-duration convert-timezone ;
: >gmt ( timestamp -- timestamp' ) : >gmt ( timestamp -- timestamp' )
dup gmt-offset>> dup instant = clone dup gmt-offset>> dup instant =
[ drop ] [ [ drop ] [
[ neg +second 0 ] change-second [ neg +second 0 ] change-second
[ neg +minute 0 ] change-minute [ neg +minute 0 ] change-minute