diff options
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)))) + |