diff --git a/extra/monotonic-clock/windows/windows.factor b/extra/monotonic-clock/windows/windows.factor index 85732e32fd..bb47941479 100755 --- a/extra/monotonic-clock/windows/windows.factor +++ b/extra/monotonic-clock/windows/windows.factor @@ -1,7 +1,7 @@ ! Copyright (C) 2009 Doug Coleman. ! See http://factorcode.org/license.txt for BSD license. USING: alien.c-types alien.data fry kernel monotonic-clock -system windows.errors windows.kernel32 ; +system windows.errors windows.kernel32 math ; IN: monotonic-clock.windows -M: windows monotonic-count ( -- n ) - \ QueryPerformanceCounter execute-performance-query ; - : cpu-frequency ( -- n ) \ QueryPerformanceFrequency execute-performance-query ; + +M: windows monotonic-count ( -- n ) + \ QueryPerformanceCounter execute-performance-query + 1000000000 * cpu-frequency /i ;