Changeset 38700 in project for release


Ignore:
Timestamp:
05/20/20 21:04:55 (3 months ago)
Author:
Kon Lovett
Message:

current-process-milliseconds -> total-cpu-milliseconds

Location:
release/5/srfi-19/trunk
Files:
2 edited

Legend:

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

    r38676 r38700  
    237237      accum-ms ) ) )
    238238
    239 (define (current-process-milliseconds)
    240   (let-values (((ums sms) (cpu-time)))
    241     (+ ums sms) ) )
     239(define (total-cpu-milliseconds)
     240  (apply + (receive (cpu-time))) )
    242241
    243242;FIXME needs a srfi-18 extension
    244 (define current-thread-milliseconds current-process-milliseconds)
     243(define current-thread-milliseconds total-cpu-milliseconds)
    245244
    246245;;; Date TZ information extract
     
    626625
    627626(define (tm:current-time-process)
    628   (tm:milliseconds->time (current-process-milliseconds) 'process) )
     627  (tm:milliseconds->time (total-cpu-milliseconds) 'process) )
    629628
    630629(define (tm:current-time-gc)
  • release/5/srfi-19/trunk/srfi-19.egg

    r38676 r38700  
    22
    33((synopsis "Time Data Types and Procedures")
    4  (version "4.4.2")
     4 (version "4.4.3")
    55 (category data)
    66 (author "Will Fitzgerald (for Chicken by [[/users/kon-lovett]])")
Note: See TracChangeset for help on using the changeset viewer.