;;;;

(module current-microseconds

(;export
  ;special
  current-flmicroseconds
  ;
  current-microseconds)

(import scheme
  (chicken base)
  (chicken type)
  (chicken foreign)
  current-nanoseconds)

(: current-flmicroseconds (-> float))

(: current-microseconds (-> integer))

(define-syntax current-flmicroseconds
  (syntax-rules ()
    ((_) (/ (current-flnanoseconds) 1e3)) ) )

(define (current-microseconds) (round (/ (current-nanoseconds) #e1e3)))

) ;module current-microseconds