aboutsummaryrefslogtreecommitdiff
path: root/tests/scene-loader-test.scm
diff options
context:
space:
mode:
authorGene Pasquet <dev@etenil.net>2026-04-08 01:32:55 +0100
committerGene Pasquet <dev@etenil.net>2026-04-08 01:32:55 +0100
commit84840ede6646ed793b61cdd889d3f57ab05e9311 (patch)
tree2b62dd73a7321bc71a368b297ab40b3535bd79fc /tests/scene-loader-test.scm
parent7903180321bf72b344077a8423930ac161872a2c (diff)
Refactor to be functional
Diffstat (limited to 'tests/scene-loader-test.scm')
-rw-r--r--tests/scene-loader-test.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/scene-loader-test.scm b/tests/scene-loader-test.scm
index 22de396..5c85ede 100644
--- a/tests/scene-loader-test.scm
+++ b/tests/scene-loader-test.scm
@@ -45,8 +45,8 @@
(defstruct camera x y)
(defstruct scene entities tilemap tileset camera tileset-texture camera-target background)
(define (scene-add-entity scene entity)
- (scene-entities-set! scene (cons entity (scene-entities scene)))
- scene))
+ (update-scene scene
+ entities: (append (scene-entities scene) (list entity)))))
(import downstroke-world)
;; Mock assets module