diff options
| author | David Thompson <dthompson2@worcester.edu> | 2024-04-10 14:49:03 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2024-04-10 14:49:03 -0400 |
| commit | 6696a0b5fcb1b17895285d80d9636defb2df3f9d (patch) | |
| tree | 2cce306afcd7776925f725a382ae1a834513636c /strigoform/time.scm | |
| parent | 20b4e7c566cd268f8fafd3e2d3846513e31949e7 (diff) | |
Sloppily refactor into modules.
Diffstat (limited to 'strigoform/time.scm')
| -rw-r--r-- | strigoform/time.scm | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/strigoform/time.scm b/strigoform/time.scm new file mode 100644 index 0000000..00971a0 --- /dev/null +++ b/strigoform/time.scm @@ -0,0 +1,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))) |