strigoform/time.scm


1
2
3
4
5
6
7
8
9
10
11

(library (strigoform time)
  (export current-time)
  (import (scheme base)
          (scheme time))

  (define %jps
    (cond-expand
     (guile-vm 0.0)
     (hoot (inexact (jiffies-per-second)))))
  (define (current-time)
    (/ (inexact (current-jiffy)) %jps)))