From 8251c85a4a588504d38a2fad05e4b0fe1cdccb9d Mon Sep 17 00:00:00 2001
From: Gene Pasquet <dev@etenil.net>
Date: Fri, 17 Apr 2026 16:30:34 +0100
Subject: Convert entities to alists

---
 demo/platformer.scm | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

(limited to 'demo/platformer.scm')

diff --git a/demo/platformer.scm b/demo/platformer.scm
index 1a24a8f..6e854fe 100644
--- a/demo/platformer.scm
+++ b/demo/platformer.scm
@@ -1,6 +1,7 @@
 (import scheme
         (chicken base)
         (chicken process-context)
+        (only (list-utils alist) plist->alist)
         (prefix sdl2 "sdl2:")
         (prefix sdl2-ttf "ttf:")
         (prefix sdl2-image "img:")
@@ -16,12 +17,12 @@
 (define +debug?+ (and (member "--debug" (command-line-arguments)) #t))
 
 (define (make-player)
-  (list #:type 'player
-        #:x 100 #:y 50
-        #:width 16 #:height 16
-        #:vx 0 #:vy 0
-        #:gravity? #t #:on-ground? #f
-        #:tile-id 1 #:tags '(player)))
+  (plist->alist (list #:type 'player
+                      #:x 100 #:y 50
+                      #:width 16 #:height 16
+                      #:vx 0 #:vy 0
+                      #:gravity? #t #:on-ground? #f
+                      #:tile-id 1 #:tags '(player))))
 
 (define (player-vx input)
   (cond ((input-held? input 'left)  -3)
-- 
cgit v1.2.3