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

diff --git a/src/examples/making-systems.scm b/src/examples/making-systems.scm
index c049a90..545b7e7 100644
--- a/src/examples/making-systems.scm
+++ b/src/examples/making-systems.scm
@@ -23,15 +23,15 @@
 (define-component a x y)
 
 (define-system s1 ()
-  (list (new-entity (make-a 1 2))
-	(new-entity (make-a 10 20))))
+  (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)
-  '())
+   with-a))
   
 (define (making-systems)
   (let ((entities '())