Fix up ENTER prefab instantiator

Shirakumo · Jan 4, 2025 · 2777c37 · 2777c37
1 parent 0c29560
commit 2777c37
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/prefab.lisp b/prefab.lisp
@@ -82,9 +82,9 @@
         (when (funcall ,id ,node)
           ,@body)))))
 
-(define-prefab-translator enter (instance asset &optional node children-only)
+(define-prefab-translator enter (instance asset node &key children-only (scene T))
   (let ((nodevar (gensym "NODE")))
-    `(do-nodes% (,nodevar (find-scene T ,asset) ,node)
+    `(do-nodes% (,nodevar (find-scene ,scene ,asset) ,node)
        ,(if children-only
             `(sequences:dosequence (,nodevar ,nodevar)
                (enter (clone ,nodevar) ,instance))