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