~ chicken-r7rs (master) /scheme.time.scm

 1(module scheme.time (current-second
 2		     current-jiffy
 3		     jiffies-per-second)
 4  (import (only chicken.base define-constant)
 5	  (only chicken.time current-seconds current-milliseconds)
 6	  (only chicken.type :)
 7	  (only scheme + define inexact->exact))
 8
 9  ;; As of 2012-06-30.
10  (define-constant tai-offset 35.)
11
12  (: current-second (--> float))
13  (define (current-second) (+ (current-seconds) tai-offset))
14
15  (: current-jiffy (--> fixnum))
16  (define (current-jiffy) (inexact->exact (current-milliseconds)))
17
18  (: jiffies-per-second (--> fixnum))
19  (define (jiffies-per-second) 1000))