summaryrefslogtreecommitdiff
path: root/starling/system.scm
diff options
context:
space:
mode:
Diffstat (limited to 'starling/system.scm')
-rw-r--r--starling/system.scm5
1 files changed, 4 insertions, 1 deletions
diff --git a/starling/system.scm b/starling/system.scm
index 293d92d..a33647d 100644
--- a/starling/system.scm
+++ b/starling/system.scm
@@ -28,8 +28,11 @@
current-window
current-window-size))
+(define %time-freq (exact->inexact (sdl-performance-frequency)))
+
(define (elapsed-time)
- (sdl-ticks))
+ "Return the current value of the system timer in seconds."
+ (/ (sdl-performance-counter) %time-freq))
(define current-window (make-parameter #f))