diff options
Diffstat (limited to 'animation.scm')
| -rw-r--r-- | animation.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/animation.scm b/animation.scm index c8f4497..e3e6e89 100644 --- a/animation.scm +++ b/animation.scm @@ -53,10 +53,10 @@ ;; Entities without #:anim-name are returned unchanged. (define (advance-animation entity anim) - (let* ((tick (+ 1 (entity-ref entity #:anim-tick 0))) - (duration (animation-duration anim)) - (frames (animation-frames anim)) - (frame (entity-ref entity #:anim-frame 0))) + (let ((tick (+ 1 (entity-ref entity #:anim-tick 0))) + (duration (animation-duration anim)) + (frames (animation-frames anim)) + (frame (entity-ref entity #:anim-frame 0))) (if (>= tick duration) (let ((new-frame-id (modulo (+ frame 1) (length frames)))) (entity-set-many entity |