Fix animation test, simplify a let* to a let

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