Artifact 0ed24dcab852d75870d7ef57017a4141a49c5227:

• File srfi/s19/time/compat.chezscheme.sls — part of check-in [80c8c83034] at 2016-07-07 18:11:39 on branch trunk — initial import (user: ovenpasta@pizzahack.eu size: 598)

(library (srfi s19 time compat)

  (export format
          host:time-resolution
          host:current-time 
          host:time-nanosecond 
          host:time-second 
          host:time-gmt-offset)

  (import (chezscheme)
          (prefix (only (chezscheme)
                        current-time
                        time-nanosecond
                        time-second)
                  host:))

  (define host:time-resolution 1000)

  ;; (define (host:time-gmt-offset t)
  ;;   (date-zone-offset t))

  (define (host:time-gmt-offset t)
    (date-zone-offset (time-utc->date t)))
    
  )