Final queue count now adjustable.

[jars.git] / koth.scm

diff --git a/koth.scm b/koth.scm
index d25dcd1..db68efa 100644 (file)
--- a/koth.scm
+++ b/koth.scm
@@ -48,7 +48,7 @@
 (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)