From ff81d89c5205ef144c212771807a2dc1cfb0d749 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 17 Dec 2009 20:47:40 +0000 Subject: [PATCH] guarantee current-inexact-milliseconds as since Jan 1, 1970 svn: r17343 --- collects/scribblings/reference/time.scrbl | 4 ++-- src/mzscheme/src/fun.c | 1 + 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/scribblings/reference/time.scrbl b/collects/scribblings/reference/time.scrbl index 4a98a3a491..9a75a27980 100644 --- a/collects/scribblings/reference/time.scrbl +++ b/collects/scribblings/reference/time.scrbl @@ -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)]) diff --git a/src/mzscheme/src/fun.c b/src/mzscheme/src/fun.c index 73b2a1158f..8ed11036d8 100644 --- a/src/mzscheme/src/fun.c +++ b/src/mzscheme/src/fun.c @@ -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)