1 files changed, 8 insertions, 2 deletions
diff --git a/starling/kernel.scm b/starling/kernel.scm
index 9c23448..04fb4cd 100644
--- a/starling/kernel.scm
+++ b/starling/kernel.scm
@@ -52,18 +52,21 @@
             on-controller-press
             on-controller-release
             on-controller-move
+
             <window-config>
             width
             height
             title
             fullscreen?
+
             <kernel>
             window-config
             update-hz
             window
             gl-context
             current-kernel
-            boot-kernel)
+            boot-kernel
+            elapsed-time)
   #:re-export (abort-game))
 
 ;; Input event handler methods
@@ -262,6 +265,9 @@
         (set-window-title! (window kernel) title))
       (apply throw key args)))
 
+(define (elapsed-time)
+  (sdl-ticks))
+
 (define (boot-kernel kernel first-node)
   (sdl-init)
   ;; This will throw an error if any audio subsystem is unavailable,
@@ -298,7 +304,7 @@
                     #:render (lambda (alpha) (render* kernel alpha))
                     #:error (lambda (stack key args)
                               (on-error kernel stack key args))
-                    #:time sdl-ticks
+                    #:time elapsed-time
                     #:update-hz (update-hz kernel))))
       (lambda ()
         (deactivate kernel)