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

diff --git a/src/examples/making-systems.scm b/src/examples/making-systems.scm
index b3f381d..3709719 100644
--- a/src/examples/making-systems.scm
+++ b/src/examples/making-systems.scm
@@ -25,11 +25,11 @@
 (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))
+    (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))))
+    (((make-system (a) (lambda (e) (display e) (newline) '())) entities components))))
 
 (export making-systems)