From c963d9f668321acfe627e76a993ff92e68fc3723 Mon Sep 17 00:00:00 2001
From: retropikzel <retropikzel@iki.fi>
Date: Fri, 29 May 2026 15:36:22 +0300
Subject: [PATCH] Pass the time-ms to the update procedure in Spite

---
 retropikzel/spite.scm       | 2 +-
 retropikzel/spite/README.md | 2 +-
 retropikzel/spite/VERSION   | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/retropikzel/spite.scm b/retropikzel/spite.scm
index 2052a54..9b3473b 100644
--- a/retropikzel/spite.scm
+++ b/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)
diff --git a/retropikzel/spite/README.md b/retropikzel/spite/README.md
index c1a2697..5764b28 100644
--- a/retropikzel/spite/README.md
+++ b/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)
diff --git a/retropikzel/spite/VERSION b/retropikzel/spite/VERSION
index 0ea3a94..0d91a54 100644
--- a/retropikzel/spite/VERSION
+++ b/retropikzel/spite/VERSION
@@ -1 +1 @@
-0.2.0
+0.3.0