-(define (composing-with-threaded)
- (let ((entities '())
- (components '()))
- (receive (e c) (modify-entities (list (new-entity '(l . ())) (new-entity '(l . ()))) entities components)
- ((threaded-systems s1 s2) e c))))
+(define (composing-with-thread)
+ (let ((entities (make-entity-set (new-entity '(l . ())) (new-entity '(l . ())) (new-entity '(a . #f)))))
+ (set! entities (modify-entities entities (get-entities-changes ((thread-systems s1 s2) entities))))
+ (entity-list entities)))
+
+(export composing-with-thread)