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/animation.scm | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

(limited to 'demo/animation.scm')

diff --git a/demo/animation.scm b/demo/animation.scm
index 2379115..f2048d6 100644
--- a/demo/animation.scm
+++ b/demo/animation.scm
@@ -2,6 +2,7 @@
         (chicken base)
 	(chicken pretty-print)
         (only srfi-1 iota)
+        (only (list-utils alist) plist->alist)
         (prefix sdl2 "sdl2:")
         (prefix sdl2-ttf "ttf:")
         downstroke-engine
@@ -19,13 +20,13 @@
 (define *title-font*  #f)
 
 (define (make-demo-entity x y tw th id)
-  (list #:type 'demo-bot
-        #:x x #:y y #:width tw #:height th
-        #:vx 0 #:vy 0
-        #:gravity? #t #:on-ground? #f
-        #:solid? #t #:immovable? #f
-        #:tile-id 1
-        #:demo-id id #:demo-since-jump 0))
+  (plist->alist (list #:type 'demo-bot
+                      #:x x #:y y #:width tw #:height th
+                      #:vx 0 #:vy 0
+                      #:gravity? #t #:on-ground? #f
+                      #:solid? #t #:immovable? #f
+                      #:tile-id 1
+                      #:demo-id id #:demo-since-jump 0)))
 
 (define (make-demo-tilemap ts tw th gw gh)
   (let* ((ncols     (inexact->exact (ceiling (/ gw tw))))
-- 
cgit v1.2.3