guarantee current-inexact-milliseconds as since Jan 1, 1970

svn: r17343
This commit is contained in:
Matthew Flatt 2009-12-17 20:47:40 +00:00
parent cab948d61f
commit ff81d89c52
2 changed files with 3 additions and 2 deletions

View File

@ -68,8 +68,8 @@ time.}
@defproc[(current-inexact-milliseconds) real?]{
Like @scheme[current-milliseconds], but the result never decreases
(until the machine is turned off).}
Returns the current time in milliseconds since midnight UTC, January
1, 1970.}
@defproc[(current-process-milliseconds [thread (or/c thread? #f)])

View File

@ -8102,6 +8102,7 @@ double scheme_get_inexact_milliseconds(void)
{
#ifdef USE_MACTIME
{
/* This is wrong, since it's not since January 1, 1970 */
UnsignedWide time;
Microseconds(&time);
return (((double)(time.lo >> 10)