X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=jars.git;a=blobdiff_plain;f=koth.scm;h=db68efa00af040880d6a99884d6aecfd83740e31;hp=d25dcd1aad6ed93bb0755958d1c7b49784e47b11;hb=4ccb7fe4e20053cd189864142aeb3d1d6c59c118;hpb=0dba537bcbe1c483fb0d96b6e9a093e243a7c265

diff --git a/koth.scm b/koth.scm
index d25dcd1..db68efa 100644
--- 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)