X-Git-Url: https://git.jsancho.org/?p=gacela.git;a=blobdiff_plain;f=src%2Fexamples%2Fcomposing-systems.scm;h=ef6e1e0031b4e102bb7693dd51114712567ba738;hp=7742b81ea1b655e43894f157ad8406a76dba0f21;hb=405b60cfd27f00e8dda02e19abe09bf7990bfbc2;hpb=8864bc71fcf9fd551bdb417a1b22655a9097dd30

diff --git a/src/examples/composing-systems.scm b/src/examples/composing-systems.scm
index 7742b81..ef6e1e0 100644
--- a/src/examples/composing-systems.scm
+++ b/src/examples/composing-systems.scm
@@ -22,17 +22,17 @@
 
 (define-system s1 ((with-l (l)))
   (sleep 3)
-  (map
-   (lambda (e)
-     (set-entity-components (get-key e) `(l . ,(cons 1 (get-component 'l e)))))
-   with-l))
+  (entities-changes
+   (map (lambda (e)
+	  (set-entity-components (get-key e) `(l . ,(cons 1 (get-component 'l e)))))
+	with-l)))
 
 (define-system s2 ((with-l (l)))
   (sleep 4)
-  (map
-   (lambda (e)
-     (set-entity-components (get-key e) `(l . ,(cons 2 (get-component 'l e)))))
-   with-l))
+  (entities-changes
+   (map (lambda (e)
+	  (set-entity-components (get-key e) `(l . ,(cons 2 (get-component 'l e)))))
+	with-l)))
 
 (define (composing-with-join)
   (let ((entities '())