+(define (set-entities new-entities entities components)
+ (cond ((null? new-entities)
+ (values entities components))
+ (else
+ (cond ((not (caar new-entities))
+ (receive (e c k) (new-entity (cdar new-entities) entities components)
+ (set-entities (cdr new-entities) e c)))
+ ((not (cdar new-entities))
+ (receive (e c) (remove-entity (caar new-entities) entities components)
+ (set-entities (cdr new-entities) e c)))
+ (else
+ (receive (e c) (set-entity-components (caar new-entities) (cdar new-entities) entities components)
+ (set-entities (cdr new-entities) e c)))))))
+