diff options
Diffstat (limited to 'demo/topdown.scm')
| -rw-r--r-- | demo/topdown.scm | 13 |
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) |