diff options
| author | Thomas White <taw@physics.org> | 2021-05-09 11:54:17 +0200 |
|---|---|---|
| committer | Thomas White <taw@physics.org> | 2021-05-10 20:56:02 +0200 |
| commit | 25542a091718cf78a474c7bc8bcf1bc8472cb521 (patch) | |
| tree | 6ccc8b722625676585d3e2e623adff77cd92dcd4 /guile/starlet/utils.scm | |
| parent | 48149fe3e866e1816f38647b1618ad4220b551b6 (diff) | |
Split 'base' module up into 'fixture', 'state' and 'scanout'
Diffstat (limited to 'guile/starlet/utils.scm')
| -rw-r--r-- | guile/starlet/utils.scm | 11 |
1 files changed, 10 insertions, 1 deletions
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)))) + |