From 84840ede6646ed793b61cdd889d3f57ab05e9311 Mon Sep 17 00:00:00 2001 From: Gene Pasquet Date: Wed, 8 Apr 2026 01:32:55 +0100 Subject: Refactor to be functional --- tests/scene-loader-test.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'tests/scene-loader-test.scm') 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 -- cgit v1.2.3