Ignore:
Timestamp:
05/01/20 18:18:42 (13 months ago)
Author:
Kon Lovett
Message:

remove redundant -local, use -strict-types (#t is-a type? see -io zone-reader NOTE), isolate tm:ctm

File:
1 edited

Legend:

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

    r38336 r38668  
    597597;; Current time routines
    598598
    599 ; Throw away everything but the sub-second bit.
    600 ;
    601 (define (tm:current-sub-milliseconds)
    602         (inexact->exact (remainder (current-milliseconds) MS/S)) )
    603 
    604 (define (tm:current-nanoseconds)
    605   (* (tm:current-sub-milliseconds) NS/MS) )
    606 
    607 ;Use the 'official' seconds & nanoseconds values
    608 ;
    609 (define (tm:current-time-values)
    610   (values (tm:current-nanoseconds) (current-seconds)) )
     599(import (only srfi-19-tmctm tm:current-time-values))
    611600
    612601(define (tm:current-time-utc)
Note: See TracChangeset for help on using the changeset viewer.