From e29143f891ea0f25480c9e2b2c5b765f0b343bff Mon Sep 17 00:00:00 2001 From: Gene Pasquet Date: Sun, 12 Apr 2026 23:00:17 +0100 Subject: Fix animation test, simplify a let* to a let --- animation.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'animation.scm') 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 -- cgit v1.2.3