Only update camera if unset.

Shirakumo · Jan 2, 2025 · 2299d86 · 2299d86
1 parent da65456
commit 2299d86
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/scene.lisp b/scene.lisp
@@ -9,7 +9,8 @@
    (name-map :initform (make-hash-table :test 'equal) :accessor name-map)))
 
 (defmethod enter :after ((camera camera) (scene scene))
-  (setf (camera scene) camera))
+  (unless (camera scene)
+    (setf (camera scene) camera)))
 
 (defmethod unit (name (scene scene))
   (gethash name (name-map scene)))