argh I clicked the wrong damn button
(define (jiffies-per-second) 1000000000)
(define (current-jiffy)
(with-let *libc*
(let ((res (clock_gettime CLOCK_MONOTONIC)))
(+ (* 1000000000 (cadr res)) (caddr res)))))
(define (current-second) (* 1.0 ((*libc* 'time) (c-pointer 0
'time_t*))))
_______________________________________________ Cmdist mailing list [email protected] https://cm-mail.stanford.edu/mailman/listinfo/cmdist
