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

minor calendar fix

release
erg 2006-07-25 14:02:33 +00:00
parent 35780c90fc
commit 2073b376ca
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
contrib/calendar/calendar.factor
View File

@ -189,6 +189,7 @@ M: number +second ( timestamp n -- timestamp )
: timestamp>vec ( dt -- vec ) tuple>array 2 8 rot <slice> ;
: dt>years ( dt -- x )
#! Uses average month/year length since dt loses calendar data
dt>vec [ 1 12 365.2425 8765.82 525949.2 31556952.0 ] [ / ] 2map sum ;
: dt>months ( dt -- x ) dt>years 12 * ;
: dt>days ( dt -- x ) dt>years 365.2425 * ;
@ -210,7 +211,8 @@ M: number +second ( timestamp n -- timestamp )
#! GMT time, right now
1970 1 1 0 0 0 0 <timestamp> millis 1000 /f seconds +dt ;
: timestamp- ( timestamp timestamp -- dt ) [ >gmt timestamp>vec ] 2apply v- ;
: timestamp- ( timestamp timestamp -- dt )
[ >gmt timestamp>vec ] 2apply v- vec>dt ;
: now ( -- timestamp ) gmt >local-time ;
: before ( dt -- -dt ) dt>vec [ neg ] map vec>dt ;