jiffies-per-second -- r7rs Definition procedure;
jiffies-per-second (from vonuvoli);Procedure variants:
(() -> (timestamp-jiffy))
timestamp-jiffy;scheme:time -- (scheme time);scheme -- (scheme);(jiffies-per-second)Returns an exact integer representing the number of jiffies per SI second. This value is an implementation-specified constant.
(define (time-length) (let ((list (make-list 100000)) (start (current-jiffy))) (length list) (/ (- (current-jiffy) start) (jiffies-per-second))))
The text herein was sourced and adapted as described in the "R7RS attribution of various text snippets" appendix.