X-Git-Url: https://git.jsancho.org/?p=gacela.git;a=blobdiff_plain;f=src%2Fsystem.scm;h=502ccd60beca405ef8a8d19908fcadb37d0f42df;hp=9ad9ef0c42e916b36f5de4bacc9edf7447d84660;hb=9b261e3a07d92edf68979b46f756413a0ac9247a;hpb=89384d39e57e438e6711fc06d9242f8efb7890a8

diff --git a/src/system.scm b/src/system.scm
index 9ad9ef0..502ccd6 100644
--- 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)