[functional tests] Remove dependency on the ThunderChez library.
I've just moved the relevant code into the functional-tests dir.
This commit is contained in:
26
functional-tests/srfi/s19/time/compat.chezscheme.sls
Normal file
26
functional-tests/srfi/s19/time/compat.chezscheme.sls
Normal file
@@ -0,0 +1,26 @@
|
||||
|
||||
(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)))
|
||||
|
||||
)
|
Reference in New Issue
Block a user