X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fexamples%2Fmaking-systems.scm;h=e84408747bbb4a344d24d2bf21b113a72238313f;hb=553ee324ccbd833eea5f2003ec9d55badd09f3b8;hp=37097191fd5387e888b2752fc989d19f69c6eed7;hpb=ae294fed13cd0a99c87d04ac98db272e87cb289f;p=gacela.git

diff --git a/src/examples/making-systems.scm b/src/examples/making-systems.scm
index 3709719..e844087 100644
--- a/src/examples/making-systems.scm
+++ b/src/examples/making-systems.scm
@@ -22,14 +22,23 @@
 
 (define-component a x y)
 
+(define-system s1 ()
+  (entities-changes
+   (list
+    (new-entity (make-a 1 2))
+    (new-entity (make-a 10 20)))))
+
+(define-system s2 ((with-a (a)))
+  (for-each
+   (lambda (e)
+     (format #t "Key: ~a  Component: ~a~%" (get-key e) (get-component 'a e)))
+   with-a))
+  
 (define (making-systems)
-  (let ((entities '())
-	(components '()))
-    (receive (e c) (((make-system () (lambda (e) (list (new-entity (make-a 1 2)) (new-entity (make-a 10 20))))) entities components))
-	     (set! entities e)
-	     (set! components c))
-    (format #t "Two new entities with a:~%~a~%~a~%~%" entities components)
-
-    (((make-system (a) (lambda (e) (display e) (newline) '())) entities components))))
+  (let ((entities (make-entity-set)))
+    (set! entities (modify-entities entities (get-entities-changes (s1 entities))))
+    (format #t "Two new entities with a:~%~a~%~%" (entity-list entities))
+
+    (s2 entities)))
 
 (export making-systems)