Pass the time-ms to the update procedure in Spite

retropikzel/spite.scm

@@ -29,7 +29,7 @@
 (define (main-loop update-procedure draw-procedure)
   (set! main-loop-start-time (SDL_GetTicks))
   (sdl2-events-get)
-  (update-procedure delta-time (poll-events!))
+  (update-procedure main-loop-start-time delta-time (poll-events!))
   (render-clear)
   (draw-procedure)
   (render-present)

retropikzel/spite/README.md

@@ -29,7 +29,7 @@ Example:
     (define player-y 64)
 
     (define update
-      (lambda (delta-time events)
+      (lambda (time-ms delta-time events)
         (for-each
           (lambda (event)
             (when (symbol=? (cdr (assoc 'type event)) 'key-down)

retropikzel/spite/VERSION

@@ -1 +1 @@
-0.2.0
+0.3.0