- (let ((entities '())
- (components '()))
- (receive (e c) ((s1 entities components))
- (set! entities e)
- (set! components c))
- (format #t "Two new entities with a:~%~a~%~a~%~%" entities components)
-
- ((s2 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)))