-(define (run-match . progs)
- (let* ((core (make-core CORE-SIZE INITIAL-INSTR))
- (queues (install-progs core (list challenger-prog other-prog))))
- (run-mars core queues)))
+(define (run-match spec . progs)
+ (let loop ((remaining (spec-games-per-match spec)))
+ (let* ((core (make-core (spec-core-size spec) INITIAL-INSTR))
+ (queues (install-progs core (list challenger-prog other-prog))))
+ (run-mars core queues))
+ (loop (- remaining 1))))