(define (score-game spec prog1 prog2)
(let* ((core (make-core (spec-core-size spec)))
(queues (install-progs core (list prog1 prog2)))
- (result (run-mars core queues (spec-game-length spec))))
+ (result (run-mars core queues (spec-game-length spec) 2)))
(cond
((null? result) (error "Invalid game result."))
((= (length result) 1)