Changeset 38729 in project for release


Ignore:
Timestamp:
06/05/20 03:50:51 (2 months ago)
Author:
Kon Lovett
Message:

C5.3 anticipation

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/5/srfi-19/trunk/srfi-19-tm.scm

    r38700 r38729  
    198198(import (only (chicken gc) current-gc-milliseconds))
    199199(import (only (chicken format) format))
    200 (import (only (chicken time) cpu-time current-seconds current-milliseconds))
     200(import (only (chicken time) cpu-time current-seconds))
    201201(import (only (chicken time posix) seconds->utc-time))
    202202(import (only (chicken port) with-input-from-port with-input-from-string))
     
    596596
    597597(cond-expand
     598  (chicken-5.3
     599    ;add back C_startup_time_seconds
     600    (define tm:current-time-values
     601      (let ((t0 (current-seconds)))
     602        (lambda ()
     603          (import (only (chicken time) current-process-milliseconds))
     604          (let-values (((s ms) (quotient&remainder (current-process-milliseconds) MS/S)))
     605            (values (* ms MS/NS) (+ t0 s)) ) ) ) ) )
    598606  (unix
    599607    ;add back C_startup_time_seconds
     
    601609      (let ((t0 (current-seconds)))
    602610        (lambda ()
     611          (import (only (chicken time) current-milliseconds))
    603612          (let-values (((s ms) (quotient&remainder (current-milliseconds) MS/S)))
    604613            (values (* ms MS/NS) (+ t0 s)) ) ) ) ) )
Note: See TracChangeset for help on using the changeset viewer.