calendar: since-1970 shouldn't >local-time; this causes words that want to return GMT to return local time too

db4
Joe Groff 2010-07-18 13:42:51 -07:00
parent 6914e69d69
commit 57081d5b5e
1 changed files with 1 additions and 1 deletions

View File

@ -532,7 +532,7 @@ M: integer end-of-year 12 31 <date> ;
dup midnight time- ;
: since-1970 ( duration -- timestamp )
unix-1970 time+ >local-time ;
unix-1970 time+ ;
: timestamp>unix-time ( timestamp -- seconds )
unix-1970 time- second>> ;