Convert entities to alists

1 files changed, 7 insertions, 6 deletions

diff --git a/demo/topdown.scm b/demo/topdown.scm
index 7fa9b7e..21c7b6f 100644
--- a/demo/topdown.scm
+++ b/demo/topdown.scm
@@ -2,6 +2,7 @@
         (chicken base)
         srfi-8
         (only srfi-197 chain)
+        (only (list-utils alist) plist->alist)
         (prefix sdl2 "sdl2:")
         (prefix sdl2-ttf "ttf:")
         (prefix sdl2-image "img:")
@@ -13,12 +14,12 @@
         downstroke-scene-loader)
 
 (define (make-player)
-  (list #:type 'player
-        #:x 100 #:y 100
-        #:width 16 #:height 16
-        #:vx 0 #:vy 0
-        #:gravity? #f
-        #:tile-id 1 #:tags '(player)))
+  (plist->alist (list #:type 'player
+                      #:x 100 #:y 100
+                      #:width 16 #:height 16
+                      #:vx 0 #:vy 0
+                      #:gravity? #f
+                      #:tile-id 1 #:tags '(player))))
 
 (define (input->velocity input)
   (values (+ (if (input-held? input 'left)  -3 0)