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) (define (tm:get-time-of-day)
(values (current-seconds) (let* ((total-msecs (inexact->exact (floor (current-inexact-milliseconds)))))
(abs (remainder (current-milliseconds) 1000)))) (quotient/remainder total-msecs 1000)))
(define (tm:current-time-utc) (define (tm:current-time-utc)
(receive (seconds ms) (tm:get-time-of-day) (receive (seconds ms) (tm:get-time-of-day)