New way for returning results from systems

[gacela.git] / src / examples / composing-systems.scm

diff --git a/src/examples/composing-systems.scm b/src/examples/composing-systems.scm
index 7742b81ea1b655e43894f157ad8406a76dba0f21..ef6e1e0031b4e102bb7693dd51114712567ba738 100644 (file)
--- 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 '())