X-Git-Url: https://git.jsancho.org/?p=gacela.git;a=blobdiff_plain;f=src%2Ftest.scm;h=353987b1edfe30f395eb71d16ceb6d3635d22675;hp=fc710f21928b165618bac938530593a2259aeb27;hb=9b261e3a07d92edf68979b46f756413a0ac9247a;hpb=89384d39e57e438e6711fc06d9242f8efb7890a8

diff --git a/src/test.scm b/src/test.scm
index fc710f2..353987b 100644
--- a/src/test.scm
+++ b/src/test.scm
@@ -77,7 +77,7 @@
 (define (test2)
   (let ((entities '())
 	(components '()))
-    (receive (e c) (((make-system '() (lambda (e) `((#f . (,(make-a 1 2))) (#f . (,(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)