6 lines
170 B
Scheme
6 lines
170 B
Scheme
(define-module (game time)
|
|
#:use-module (scheme time)
|
|
#:export (current-time*))
|
|
|
|
(define (current-time*)
|
|
(/ (exact->inexact (current-jiffy)) (jiffies-per-second)))
|