suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

bug fix: tm:get-time-of-day

Browse Source 
svn: r5771
This commit is contained in:
Chongkai Zhu 2007-03-12 20:47:09 +00:00
parent df611dbf1a
commit c506af5c55
1 changed files with 265 additions and 265 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/srfi/19/time.ss
View File

@ -293,8 +293,8 @@
;;
(define (tm:get-time-of-day)
(values (current-seconds)
(abs (remainder (current-milliseconds) 1000))))
(let* ((total-msecs (inexact->exact (floor (current-inexact-milliseconds)))))
(quotient/remainder total-msecs 1000)))
(define (tm:current-time-utc)
(receive (seconds ms) (tm:get-time-of-day)