Convert entities to alists

1 files changed, 7 insertions, 6 deletions

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)