More verbose mode for working with entities and components; assoc

[gacela.git] / src / test.scm

diff --git a/src/test.scm b/src/test.scm
index fc710f21928b165618bac938530593a2259aeb27..353987b1edfe30f395eb71d16ceb6d3635d22675 100644 (file)
--- 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)