7 lines
170 B
Scheme
7 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)))
|