More verbose mode for working with entities and components; assoc

[gacela.git] / src / system.scm

diff --git a/src/system.scm b/src/system.scm
index 9ad9ef0c42e916b36f5de4bacc9edf7447d84660..502ccd60beca405ef8a8d19908fcadb37d0f42df 100644 (file)
--- a/src/system.scm
+++ b/src/system.scm
@@ -184,7 +184,7 @@
       (lambda* (#:optional (entities2 #f) (components2 #f))
        (let ((e (if (and entities2 components2) entities2 entities))
              (c (if (and entities2 components2) components2 components)))
-         (set-entities res e c))))))
+         (modify-entities res e c))))))
 
 
 (define (join-systems . systems)