From 25542a091718cf78a474c7bc8bcf1bc8472cb521 Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Sun, 9 May 2021 11:54:17 +0200
Subject: Split 'base' module up into 'fixture', 'state' and 'scanout'

---
 guile/starlet/utils.scm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

(limited to 'guile/starlet/utils.scm')

diff --git a/guile/starlet/utils.scm b/guile/starlet/utils.scm
index d5eb018..d5441cb 100644
--- a/guile/starlet/utils.scm
+++ b/guile/starlet/utils.scm
@@ -27,7 +27,8 @@
             in-range
             mean
             flatten-sublists
-            more-than-one))
+            more-than-one
+            hirestime))
 
 
 (define (print-hash-table ht)
@@ -85,3 +86,11 @@
   (if (nil? a)
       #f
       (not (nil? (cdr a)))))
+
+
+(define (hirestime)
+  (let ((a (gettimeofday)))
+    (+ (car a)
+       (/ (cdr a)
+          1000000))))
+
-- 
cgit v1.2.3